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Vorwort zur deutschen Ausgabe 


Immer mehr Besitzer eines Commodore 64 schreiben Programme in Ma¬ 
schinensprache. Dabei tauchen immer wieder die gleichen Probleme 
auf. Für den einen Drucker braucht man eine Centronics-Schnitt- 
stelle, für einen anderen ein serielles RS-232-Interface. Häufig 
benötigt man die genaue Zeit oder man möchte gern den Befehlssatz 
des Basic erweitern. Ebenso oft lassen sich Projekte nur mit 
schneller Arithmetik realisieren. All dies sind Aufgabenstel¬ 
lungen, die man sinnvoll nur in Assemblersprache lösen kann. 

Unabhängig davon, um welche Problematik es sich handelt, benutzen 
die meisten Programme für die Ein-/Ausgabe und für andere Zwecke 
immer wieder die gleichen oder zumindest ähnliche Programmsequen¬ 
zen. Dieses Buch wendet sich an den fortgeschrittenen Programmie¬ 
rer, der lieber auf erprobte Standardlösungen zurückgreift, als 
jede Sequenz jedesmal neu zu entwickeln. Der Einsatz der fertigen 
Problemlösungen wird durch im Buch als Listing enthaltene Editor- 
und Assemblerprogramme unterstützt. Für alle diejenigen, denen 
das Eintippen zu mühsam ist, hält der Verlag eine Diskette mit 
allen im Buch gezeigten Programmen bereit. 
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Ein- und Ausgabe von Zahlen 


Ein- und Ausgabe von Zahlen 


Oft möchte man Zahlen direkt über den Bildschirm ein- und ausge¬ 
ben, Die nachfolgenden Programme zeigen diese Möglichkeit mit 
sedezimalen Zahlen (auch hexadezimale Zahlen genannt) und mit 
dezimalen Zahlen. 


Hexadezimale Eingabe 


Dieses Programm ermöglicht die Eingabe hexadezimaler Zahlen mit¬ 
tels Tastatur. Die eingegebene Zahl wird auf dem Bildschirm 
angezeigt. Die Eingabe wird beendet, wenn eine Zahl außerhalb des 
hexadezimalen Zahlenbereichs (0...F) eingegeben wird. 

Das Programm löscht als erstes die Speicherstellen EXPR und 
EXPR+1 . So wird ein Ergebnis, nämlich 0, auf jeden Fall ange¬ 
zeigt, auch wenn eine ungültige Zahl eingegeben wurde. Als näch¬ 
stes wird ein Zeichen eingelesen und auf 'hexadezimale Gültig¬ 
keit' überprüft. In diesem Fall wird der Akkumulator gelöscht und 
die unteren vier Bits werden abgetrennt. Diese vier Bits werden 
von rechts in EXPR geschoben. Die nachfolgende Zahl in EXPR wird 
auf die gleiche Art nach links geschoben. 

Bei Eingabe einer Zahl mit mehr als vier Stellen werden nur die 
letzten vier Stellen berücksichtigt. 

Beispiel: ABCDEF —> CDEF 


* HEX-EINGABE PROGRAMM 




@$8A 


=EXPR 



@$FFCF 


=BASIN 



@$C000 


=ORG 

C000: 

A200 

=HEXIN 

LDX# 

#0 

C002: 

868A 


STX. 

.EXPR 

C004: 

868B 


STX. 

.EXPR+1 

C006: 

20CFFF 

=HEXIN1 

JSR 

;BASIN 
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C009: C930 


CMP# 

' 0 

COOB: 901E 


BCC! 

+HEXRTS 

C00D: C93A 


CMP# 

i . 

C00F: 900A 


BCC 

+HEXIN2 

C011: C941 


CMP# 

•A 

C01 3: 9016 


BCC 

+HEXRTS 

C015: C947 


CMP# 

1 G 

C01 7: BOI 2 


BCS 

+HEXRTS 

C019: E936 


SBC# 

$36 

C01B: 0A 

=HEXIN2 

ASLA 


C01C: 0A 


ASL.A 


C01D: 0A 


ASLA 


C01E: 0A 


ASLA 


C01F: A204 


LDX# 

#4 

C021: 0A 

=HEXIN3 

ASLA 


C022: 268A 


ROL. 

. EXPR 

C024: 268B 


ROL. 

.EXPR+1 

C026: CA 


DEX 


C027: D0F8 


BNE 

+HEXIN3 

C029: FODB 


BEQ 

+HEXIN1 

C02B: 60 

=HEXRTS 

RTS 



ASSEMBLIERUNG BEENDET 


Hexadezimale Ausgabe 


Das nächste Programm erklärt den Ausgabevorgang der berechneten 
Zahlen. 

Sie wissen sicher noch, daß der Teil des Programms, der die Aus¬ 
gabe bedient, ein Unterprogramm ist. Dieses Unterprogramm zeigt 
lediglich den Inhalt des Akkumulators auf dem Bildschirm. Das 
bedeutet, daß Sie zuerst den Akku mit dem Inhalt von EXPR+1 laden 
müssen und dann das Unterprogramm aufrufen, in dem zuerst die 
MSB- (most significant = höherwertigsten) und dann die LSB- 
(least significant = niederwertigsten) Bits ausgegeben werden. 
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* HEX-AUSGABE PROGRAMM * 




@$8A 


=EXPR 



@$FFD2 


=BSOUT 



@$C000 


=ORG 

C000: 

A58B 

=PRWORD 

LDA. 

. EXPR+1 

C002: 

200BB0 


JSR 

; PRBYTE 

C005: 

A58A 


LDA. 

.EXPR 

C007: 

200BB0 


JSR 

;PRBYTE 

C00A: 

60 


RTS 


CO OB: 

48 

=PRBYTE 

PHA 


C00C: 

4A 


LSRA 


C00D: 

4A 


LSRA 


C00E: 

4A 


LSRA 


C00F: 

4A 


LSRA 


C01 0: 

2016B0 


JSR 

;HEXOUT 

C013: 

68 


PLA 


C014: 

290F 


AND# 

#15 

C016: 

C90A 

=HEXOUT 

CMP# 

#10 

C018: 

B004 


BCS 

+ALFA 

C01A: 

0930 


ORA# 

'0 

C01C: 

D002 


BNE 

+HXOUT 

C01E: 

6936 

=ALFA 

ADC# 

#54 

C020: 

4CD2FF 

=HXOUT 

JMP 

;BSOUT 


ASSEMBLIERUNG BEENDET 


Dezimale Eingabe 


Wahrscheinlich werden Sie beim Rechnen mit Zahlen die dezimalen 
Zahlen den hexadezimalen vorziehen. Das folgende Programm können 
Sie verwenden, um dezimale Zahlen für Rechner verständlich einzu¬ 
geben . 

Das Programm überprüft die Eingabe zuerst auf 'dezimale Richtig¬ 
keit' (0...9) bzw. bricht den Programmablauf ab, wenn ein anderes 
Zeichen eingegeben wurde. EXPR und EXPR+1 werden gelöscht. Als 
nächstes wird der Inhalt von EXPR und EXPR+1 mit 10 multipliziert 
und die neue Zahl addiert. Schließlich befinden sich die MSB-Bits 
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in EXPR+1 und die LSB-Bits in EXPR. 

Zahlen, die größer sind als 65355 werden in Modulo 65536 ( = der 
Rest, der beim (auch mehrmaligen) Abzug von 65536 übrigblpibt) 
angezeigt. 


DEZIMAL-EINGABE PROGRAMM 




§$8A 


=EXPR 



§$FFCF 


=BASIN 



@$C000 


=ORG 

C000: 

A200 

=DECIN 

LDX# 

#0 

C002: 

868A 


STX. 

.EXPR 

C004: 

868B 


STX. 

.EXPR+1 

C006: 

20CFFF 

=DEC1 

JSR 

;BASIN 

C009: 

C930 


CMP# 

'0 

COOB: 

9018 


BCC 

+DECEND 

COOD: 

C93A 


CMP# 

i . 

COOF: 

BOI 4 


BCS 

+DECEND 

C011 : 

290F 


AND# 

#15 

C013: 

A211 


LDX# 

#17 

C01 5: 

D005 


BNE 

+DEC3 

C01 7: 

9002 

=DEC2 

BCC 

+DECDEC4 

C01 9: 

6909 


ADC# 

#9 

C01B: 

4A 

=DEC4 

LSRA 


C01C: 

668B 

=DEC3 

ROR. 

.EXPR+1 

C01E: 

668A 


ROR. 

.EXPR 

C020: 

CA 


DEX 


C021 : 

D0F4 


BNE 

+DEC2 

C023: 

F0E1 


beq 

+DEC1 

C025: 

60 

=DECEND 

RTS 



ASSEMBLIERUNG BEENDET 
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Dezimale Ausgabe 


Das nächste Programm erlaubt die Anzeige von dezimalen Zahlen. 
Hier die Beschreibung: 

Das X-Register wird mit dem ASCII-Äquivalent der Zahl 0 geladen. 
Diese Zahl wird zur höchsten Potenz von 10 (10000) erhoben und am 
Bildschirm angezeigt. 

Der gleiche Vorgang wiederholt sich für 1000, 100 und 10. Der 
Rest wird mit Hilfe eines OR-Befehls in eine ASCII-Zahl umgewan¬ 
delt und angezeigt. 

Sie können diese Ausgaberoutine so abändern, daß die Anzeige 
führender Nullen unterdrückt wird. 


* DEZIMAL-AUSGABE PROGRAMM * 




@$8A 


=DECL 



@$8B 


=DECH 



§ $8C 


=TEMP 



@ $FFD2 


=BSOUT 



@$C000 


=ORG 

C000: 

A007 

=DECOUT 

LDY# 

#7 

C002: 

A230 

=DECOUT1 

LDX# 

'0 

C004: 

38 

=DECOUT2 

SEC 


C005: 

A58A 


LDA. 

. DECL 

C007: 

F92EC0 


SBCY 

;DECTAB-1 

C00A: 

48 


PHA 


C00B: 

88 


DEY 


C00C: 

A58B 


LDA. 

.DECH 

C00E: 

F930C0 


SBCY 

;DECTAB+1 

C011 : 

9009 


BCC 

+DECOUT3 

C013: 

858B 


STA. 

.DECH 

C015: 

68 


PLA 


C01 6: 

858A 


STA. 

.DECL 

C018: 

E8 


INX 


C01 9: 

C8 


INY 


C01A: 

D0E8 


BNE 

+DECOUT2 

C01C: 

68 

=DECOUT3 

PLA 
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C01D: 

8A 

TXA 

C01E: 

848C 

STY. .TEMP 

C020: 

20D2FF 

JSR ;BSOUT 

C023: 

A48C 

LDY. .TEMP 

C025: 

88 

DEY 

C026: 

1 ODA 

BPL +DECOUT1 

C028: 

A58A 

LDA. .DECL 

C02A: 

0930 

ORA# 1 0 

C02C: 

4CD2FF 

JMP ?BSOUT 

C02F: 

OAOO =DECTAB 

; #1 0 

C031 : 

6400 

;#100 

C033: 

E803 

;#1000 

C035: 

1027 

;#10000 


ASSEMBLIERUNG BEENDET 


16 Bit Addition und Subtraktion 


Die 16 Bit Addition ist bekannt. Sie wird hier noch einmal zusam¬ 
men mit der Subtraktion aufgeführt. 




* 

16 BIT 

ADDITION * 



* 

GANZZAHL OHNE VORZEICHEN * 



* 

EXPR1 

:= EXPR1 + EXPR2 * 



@$8A 


=EXPR1 



§$8C 


=EXPR2 



@$B000 


=ORG 

C000: 

18 

=ADD 

CLC 


C001 : 

A58A 


LDA. 

.EXPR1 

C003: 

658C 


ADC. 

.EXPR2 

C005: 

858A 


STA. 

.EXPR1 

C007: 

A58B 


LDA. 

• EXPR1+1 

C009: 

658D 


ADC. 

.EXPR2+1 

C00B: 

858B 


STA. 

•EXPR1+1 

C00D: 

60 


RTS 



ASSEMBLIERUNG BEENDET 


16 




Ein- und Ausgabe von Zahlen 




* 

16 BIT SUBTRAKTION 



* 

GANZZAHL OHNE VORZEICHEN 



* 

EXPR1 

:= EXPR1 - EXPR2 



@$8A 


=EXPR1 



@$8C 


=EXPR2 



@$C000 


=ORG 

C000: 

38 

=SUB 

SEC 


C001 : 

A58A 


LDA. 

. EXPR1 

C003: 

E58C 


SBC. 

.EXPR2 

C005: 

858A 


STA. 

. EXPR1 

C007: 

A58B 


LDA. 

•EXPR1+1 

C0 09: 

E58D 


SBC. 

•EXPR2+1 

C00B: 

858B 


STA. 

. EXPR1 +1 

C00D: 

60 


RTS 



* 

* 


* 


ASSEMBLIERUNG BEENDET 


16 Bit Multiplikation 


Die Multiplikation ist wesentlich komplizierter als die Addition 
oder Subtraktion. Sie ist im binären Zahlensystem mit der im 
dezimalen Zahlensystem identisch. Sehen wir doch einmal, wie wir 
im dezimalen System multiplizieren. Als Beispiel multiplizieren 
wir 5678*203. 


5678 
203 * 


17034 

00000 

11356 


1252634 

Mit jeder Stelle wird die nachfolgende Zahl nach rechts gescho¬ 
ben. Ist die Stelle ungleich Null, wird das neue Zwischenergebnis 
addiert. Im binären System funktioniert das auf die gleiche 
Weise. 
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Ein Beispiel: 


1 011 
1101 * 


1 Öl 1 
0000 
1011 
1011 


10001111 

Wie Sie sehen, ist die Multiplikation im binären System einfacher 
als im dezimalen System. Da die größtmögliche Zahl einer jeden 
Stelle nur 1 sein kann, ist das höchste Zwischenergebnis gleich 
dem Multiplikant. 

Das folgende Programm läuft im Prinzip genauso ab wie eben be¬ 
schrieben, nur wird hier das Zwischenergebnis nach rechts gescho¬ 
ben und der Multiplikant wird, wenn nötig, addiert. 

Es werden sechs Speicherplätze benötigt. Zwei davon (SCRATCH und 
SCRATCH+1) werden nur zeitweise benutzt, die restlichen vier ent¬ 
halten die zwei Zahlen, die multipliziert werden sollen (EXPR1 
und EXPR1+1, EXPR2 und EXPR2+1). Nach der Berechnung steht das 
Ergebnis in den Speicherstellen EXPR1(LSB) und EXPR1+1(MSB). 




* 

16 BIT MULTPLIKATION 



* 

GANZZAHL OHNE VORZEICHEN 



* 

EXPR1 

:= EXPR1 * EXPR2 



@$8A 


=EXPR1 



@$8C 


=EXPR2 



@ $8E 


=SCRATCH 



@$C000 


=ORG 

C000: 

A200 

=MUL 

LDX# 

#0 

C002: 

868E 


STX. 

.SCRATCH 

C004: 

868F 


STX. 

.SCRATCH+1 

C006: 

A010 


LDY# 

#16 

C008: 

D00D 


BNE 

+MUL2 

C00A: 

18 

=MUL1 

CLC 


C00B: 

A58E 


LDA. 

.SCRATCH 
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C00D: 

658C 


ADC. 

.EXPR2 

C00F: 

858E 


STA. 

•SCRATCH 

C011 : 

A58F 


LDA. 

•SCRATCH+1 

C013: 

658D 


ADC. 

•EXPR2+1 

C01 5: 

858F 


STA. 

•SCRATCH+1 

C017: 

468F 

=MUL2 

LSR. 

•SCRATCH+1 

C019: 

668E 


ROR. 

• SCRATCH 

C01B: 

668B 


ROR. 

•EXPR1+1 

C01D: 

668A 


ROR. 

• EXPR1 

C01F: 

88 


DEY 


C020: 

3004 


BMI 

+MULRTS 

C022: 

90F3 


BCC 

+MUL2 

C024: 

B0E4 


BCS 

+MUL1 

C026: 

60 

=MULRTS 

RTS 



ASSEMBLIERUNG BEENDET 


16 Bit Division 


Die Division zweier Zahlen ist gerade das Gegenteil der Multipli¬ 
kation. Sie können deshalb auch im nachfolgenden Programm sehen, 
daß der Divisor subtrahiert wird und der Dividend nach links ge¬ 
schoben wird. Die verwendeten Speieherstellen sind dieselben wie 
beim Multiplikationsprogramm, nur werden die Stellen SCRATCH und 
SCRATCH+1 jetzt REMAIN und REMAIN+1 genannt. Das bedeutet, daß 
der Rest der Division in diese Speieherstellen abgelegt wird. 


* 16 BIT DIVISION * 

* GANZZAHL OHNE VORZEICHEN * 

* EXPR1 := EXPR1 DURCH EXPR2 * 

* REMAIN := EXPR1 MOD EXPR2 * 

§ $8A =EXPR1 

@$8C =EXPR2 

@$8E =REMAIN 

@$C000 =ORG 

C000: A200 =DIV LDX# #0 
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C002: 868E 
C004: 868F 
C006: AC3C01 
C009: 068A 
C00B: 268B 
C00D: 268E 
COOF: 268F 
C011: 38 
C012: A58E 
C014: E58C 
C016: AA 
C017: A58F 
C019: E58D 
C01B: 9006 
C01D: 868E 
C01F: 858F 
C021: E68A 
C023: 88 
C024: D0E3 
C026: 60 


STX 

STX 

LDY 

=DIV1 ASL 
ROL 
ROL 
ROL 
SEC 
LDA 
SBC 
TAX 
LDA 
SBC 
BCC 
STX 
STA 
INC 

=DIV2 DEY 
BNE 
RTS 


ASSEMBLIERUNG BEENDET 


.REMAIN 
.REMAIN+1 
; 31 6 
.EXPR1 
.EXPR1+1 
.REMAIN 
.REMAIN+1 

.REMAIN 
.EXPR2 

.REMAIN+1 

.EXPR2+1 

+DIV2 

.REMAIN 

.REMAIN+1 

.EXPR1 

+DIV1 
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Textausgabe 


Textausgabe 


Bei den meisten Programmen muß Text ausgegeben werden (Menüs 
usw.). 


Das nachfolgende Programm ermöglicht die Ausgabe von Zeichenket¬ 
ten beliebiger Länge an beliebigen Positionen. Der Ausgabebefehl 
kann an jeder Stelle Ihres Programms stehen. 

Wie funktioniert das? 

Der Mikroprozessor 6502 benutzt seinen Stack dazu, die Rückkehr¬ 
adresse abzuspeichern, wenn ein JSR-Befehl ausgeführt wird. Die 
auf dem Stack abgelegte Zahl entspricht der Rückkehradresse minus 
Eins. Der in diesem Programm verwendete Trick besteht darin, daß 
die auszudruckende Zeichenkette unmittelbar nach dem JSR-Befehl 
folgt und das letzte Zeichen der Kette um 128 erhöht wird. Das 
Unterprogramm berechnet die Anfangsadresse der Zeichenkette mit 
Hilfe der Zahl auf dem Stack und liest die Zeichen Byte für Byte, 
bis es das um 128 erhöhte Byte gefunden hat. Die Adresse dieses 
Bytes wird auf dem Stack abgelegt und ein RTS-Befehl ausgeführt. 
So wird die Zeichenkette übersprungen und das nächste Kommando 
ausgeführt. 




* 

AUSGABE VON ZEICHENKETTEN 



* 

MIT 

UNTERSCHIEDLICHER LAENGE 



§2 


=AUX 



@$FFD2 


=BSOUT 



@$C000 


=ORG 

C000: 

2014B0 

=EXAMPLE 

JSR 

;PRINT 

C003: 




/DAS IST EIN TEST 

C003: 

444153 




C006: 

204953 




C009: 

542045 




C00C: 

494E20 




C00F: 

544553 




C012: 

D4 




C013: 

00 


BRK 


C014: 

68 

=PRINT 

PLA 


C015: 

8502 


STA. 

. AUX 
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C017: 

68 

PLA 


C018: 

8503 

STA. 

.AUX+1 

C01A: 

A200 

LDX# 

#0 

C01C: 

E602 =PRINT1 

INC. 

.AUX 

C01E: 

D002 

BNE 

+PRINT2 

C020: 

E603 

INC. 

.AUX+1 

C022: 

AI 02 =PRINT2 

LDA@X 

.AUX 

C024: 

297F 

AND# 

$7F 

C026: 

20D2FF 

JSR 

;BSOUT 

C029: 

A200 

LDX# 

#0 

C02B: 

AI 02 

LDA@X 

.AUX 

C02D: 

1 OED 

BPL 

+PRINT1 

C02F: 

A503 

LDA. 

•AUX+1 

C031 : 

48 

PHA 


C032: 

A502 

LDA. 

.AUX 

C034: 

48 

PHA 


C035: 

60 

RTS 
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Rekursion 


Rekursion 


Eine Programmiermethode, die immer häufiger angewendet wird, ist 
die sogenannte rekursive Programmierung. Was ist Rekursion? 

Rekursion wird häufig in der Mathematik benutzt. Als Beispiel sei 
die Fakultätsfunktion angeführt, die mit Rekursion folgendermaßen 
definiert werden kann: 

0 ! = 1 ; 

n! = n * (n-1)! 

Mit diesen zwei Definitionen ist die gesamte Funktion beschrieben 
und kann ausgeführt werden. Als Beispiel wollen wir 6! berechnen. 
Wir verwenden dazu die nachfolgende Rekursion: 


6! = 6*5! 

6! = 6*(5*4!) 

6 ! = 6 *( 5 *( 4 * 3 !)) 

6! = 6*(5*(4*(3*2!) )) 

6! = 6*(5*(4*(3*(2*1! ) ))) 

6! = 6*(5*(4*(3*(2*(1*0 1 ) )))) 

+- 0 ! = 1 


— > 


6! = 6*5*4*3*2*1*1 = 720 


Wir haben also die Funktion durch das schrittweise Ausführen un¬ 
serer Definition berechnet. Die Berechnung wurde durch das Er¬ 
reichen der Definition von 0! abgebrochen. Diese Definition ist 
sehr wichtig, sonst würden wir immer weiterrechnen. 

Warum brauchen wir Rekursionen beim Programmieren? 

Wir haben gesehen, daß Funktionen mit Hilfe der rekursiven Pro¬ 
grammierung leicht zu berechnen sind. 

Viele Probleme kann man mit Rekursionen und einfachen Algorithmen 
lösen. Allerdings muß man sich erst daran gewöhnen, daß das 
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Programm sich selbst aufruft. Eine allgemeine Anweisung in einer 
Hochsprache könnte folgendermaßen aussehen: 

PROC R: 

IF C 
THEN D 
ELSE S; R 
FI 

Ist Bedingung C wahr, wird das Programm die Anweisung D ausführen 
und anhalten. Sonst wird S ausgeführt und das Programm ruft sich 
selbst (R) wieder auf. Unser Beispiel könnte dann so aussehen: 

PROC fac IN n OUT f 
IF n = 0 
THEN f= 1 

ELSE f = n * fac( n-1 ) 

FI 

Diese Prozedur (Unterprogramm) ruft sich solange selbst auf, bis 
n=0 ist und bringt 1 als Ergebnis. Sie kehrt dann zum vorherge¬ 
henden Aufruf zurück usw. Schließlich wird der erste Aufruf von 
'fac' als Ergebnis n*(n-1)*(n-2)*...*(1)*1 bringen, also den Wert 
von n!. 

Die nächsten zwei Programme zeigen eine weitere Anwendung von 
Rekursion. Die Ausgabe einer binären Zahl in hexadezimaler Form. 
Das erste Programm druckt den Inhalt der Speieherstellen EXPR 
(LSB) und EXPR+1 (MSB) als vorzeichenlose Zahl aus. Das Programm 
wird beendet, wenn der Inhalt von EXPR und EXPR+1 kleiner als 10 
ist. Sonst wird durch 10 dividiert und das Programm ruft sich 
selbst wieder auf. Zuerst wird die höchstwertigste Stelle ausge¬ 
geben, dann die nachfolgenden. Dieser Vorgang beseitigt automa¬ 
tisch etwaige führende Nullen. 


* REKURSION PUTINT * 

* GANZZAHL OHNE VORZEICHEN * 

§ 2 =EXPR 

@4 =REMAIN 

§ $FFD2 =BSOUT 

@13 =CR 

@$C000 =ORG 
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* 

65535 



C000: 

A9FF 



LDA# 

#255 

C002: 

8502 



STA. 

. EXPR 

C004: 

A9FF 



LDA# 

#255 

C006: 

8503 



STA. 

. EXPR+1 

C008: 

3051 CO 



JSR 

;PUTINT 

COOB: 

A90D 



LDA# 

.CR 

COOD: 

20D2FF 



JSR 

;BSOUT 



* 

0 



C010: 

A900 



LDA# 

#0 

C01 2: 

8502 



STA. 

.EXPR 

C014: 

A900 



LDA# 

#0 

C016: 

8503 



STA. 

.EXPR+1 

C018: 

3051 CO 



JSR 

;PUTINT 

COIB: 

A90D 



LDA# 

.CR 

C01D: 

20D2FF 



JSR 

;BSOUT 



* 

-32768 



C020: 

A900 



LDA# 

#0 

C022: 

8502 



STA. 

.EXPR 

CO 24: 

A980 



LDA# 

#128 

C026: 

8503 



STA. 

. EXPR+1 

C028: 

3051 CO 



JSR 

;PUTINT 

C02B: 

A90D 



LDA# 

.CR 

C02D: 

20D2FF 



JSR 

;BSOUT 



★ 

12345 



C030: 

A939 



LDA# 

#57 

C032: 

8502 



STA. 

.EXPR 

CO 34: 

A930 



LDA# 

#48 

C036: 

8503 



STA. 

. EXPR+1 

C038: 

3051 CO 



JSR 

;PUTINT 

C03B: 

A90D 



LDA# 

.CR 

C03D: 

20D2FF 



JSR 

;BSOUT 



* 

-1 



C040: 

A9FF 



LDA# 

#255 

C042: 

8502 



STA. 

.EXPR 

C044: 

A9FF 



LDA# 

#255 

C046: 

8503 



STA. 

. EXPR+1 

C048: 

3051 CO 



JSR 

;PUTINT 

C04B: 

A90D 



LDA# 

.CR 

C04D: 

20D2FF 



JSR 

; BSOUT 

C050: 

00 



BRK 


C051 : 

48 

=] 

PUTINT 

PHA 


C052: 

A503 



LDA. 

.EXPR+1 

C054: 

D006 



BNE 

+NODIG 
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C056: 

A502 

LDA. 

. EXPR 

C058: 

C90A 

CMP# 

#10 

C05A: 

9006 

BCC 

+PUTDIG 

C05C: 

2069C0 =NODIG 

JSR 

; DIV1 0 


* SPRINGE IN REKURSION 


C05F: 2051 CO JSR ;PUTINT 

C062: 0930 =PUTDIG ORA# '0 

C064: 20D2FF JSR ;BSOUT 

C067: 68 PLA 

C068: 60 RTS 

* DIVISION DURCH ZEHN, PROGRAMM AUS KAPITEL 1 


C069: 

A200 

=DIV10 

LDX# 

#0 

C06B: 

868E 


STX. 

.REMAIN 

C06D: 

868F 


STX. 

•REMAIN+1 

C06F: 

A010 


LDY# 

#16 

C0 71 : 

0602 

DIV1 

ASL. 

• EXPR 

C073: 

2603 


ROL. 

•EXPR+1 

C075: 

2604 


ROL. 

•REMAIN 

C0 77: 

2605 


ROL. 

•REMAIN+1 

C079: 

38 


SEC 


C07A: 

A504 


LDA. 

.REMAIN 

C07C: 

E90A 


SBC# 

#10 

C07E: 

AA 


TAX 


C07F: 

A505 


LDA. 

.REMAIN+1 

C081 : 

E900 


SBC# 

#0 

C083: 

9006 


BCC 

+DIV2 

C085: 

8604 


STX. 

•REMAIN 

C087: 

8505 


STA. 

•REMAIN+1 

C089: 

E602 


INC. 

• EXPR 

C08B: 

88 

=DIV2 

DEY 


C08C: 

D0E3 


BNE 

+DIV1 

C08E: 

A504 


LDA. 

• REMAIN 

C0 90: 

60 


RTS 



ASSEMBLIERUNG BEENDET 


Mit ein paar Instruktionen kann man das Programm so umwandeln, 
daß es Ganzzahlen mit Vorzeichen ausdruckt. Zuerst wird das 
Vorzeichen der zu druckenden Zahl geprüft und ein Leerzeichen 
(>=0) oder ein Minuszeichen (<0) ausgedruckt. Ist die Zahl klei¬ 
ner Null, wird sie invertiert und wie eine vorzeichenlose Zahl 
ausgegeben. Damit können Sie Zahlen zwischen -32768 und 32767 
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ausdrucken. 


REKURSION PUTINT * 

GANZZAHL MIT VORZEICHEN * 


C000: 

A9FF 

@2 

@4 

@$FFD2 
@13 
@$C000 
* 65535 

LDA# 

=EXPR 

=REMAIN 

=BSOUT 

=CR 

=ORG 

#255 

C002: 

8502 


STA. 

• EXPR 

C004: 

A9FF 


LDA# 

#255 

C006: 

8503 


STA. 

. EXPR+1 

C008: 

3051 CO 


JSR 

;PUTINT 

CO OB: 

A90D 


LDA# 

.CR 

COOD: 

20D2FF 


JSR 

;BSOUT 

C010: 

A900 

* 0 

LDA# 

#0 

C012: 

8502 


STA. 

.EXPR 

C014: 

A900 


LDA# 

#0 

C016: 

8503 


STA. 

.EXPR+1 

C01 8: 

3051 CO 


JSR 

;PUTINT 

C01B: 

A90D 


LDA# 

.CR 

C01D: 

20D2FF 


JSR 

;BSOUT 

C020: 

A900 

* -32768 

LDA# 

#0 

C022: 

8502 


STA. 

.EXPR 

C024: 

A980 


LDA# 

#128 

C026: 

8503 


STA. 

. EXPR+1 

C028: 

3051 CO 


JSR 

;PUTINT 

C02B: 

A90D 


LDA# 

.CR 

C02D: 

20D2FF 


JSR 

;BSOUT 

C030: 

A9FF 

* 32767 

LDA# 

#255 

C032: 

8502 


STA. 

.EXPR 

C034: 

A97F 


LDA# 

#127 

CO 36: 

8503 


STA. 

.EXPR+1 

C038: 

3051 CO 


JSR 

;PUTINT 

C03B: 

A90D 


LDA# 

.CR 
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C03D: 

20D2FF 

* 12345 

JSR 

C040: 

A939 


LDA# 

C042: 

8502 


STA. 

CO 44: 

A930 


LDA# 

C046: 

8503 


STA. 

C048: 

3051C0 


JSR 

C04B: 

A90D 


LDA# 

C04D: 

20D2FF 

* -1 

JSR 

C050: 

A9FF 


LDA# 

C052: 

8502 


STA. 

C054: 

A9FF 


LDA# 

C056: 

8503 


STA. 

C058: 

3051C0 


JSR 

C05B: 

A90D 


LDA# 

C05D: 

20D2FF 

* -345 

JSR 

C060: 

A9A7 


LDA# 

C062: 

8502 


STA. 

C064: 

A9FE 


LDA# 

C066: 

8503 


STA. 

C068: 

3051C0 


JSR 

C06B: 

A90D 


LDA# 

C06D: 

20D2FF 


JSR 

C070: 

00 


BRK 

CO 71 : 

A920 

=PUTINTS 

LDA# 

C073: 

2403 


BIT. 

C075: 

1 00F 


BPL 



* WENN<0 

—> 

C077: 

38 


SEC 

C078: 

A900 


LDA# 

C07A: 

E502 


SBC. 

C07C: 

8502 


STA. 

C07E: 

A900 


LDA# 

C080: 

E503 


SBC. 

C082: 

8503 


STA. 

C084: 

A92D 


LDA# 

C086: 

20D2FF 

=PUTSGN 

JSR 

C089: 

48 

=PUTINT 

PHA 

C08A: 

A503 


LDA. 

C08C: 

D006 


BNE 

C08E: 

A502 


LDA. 

C090: 

C90A 


CMP# 


;BSOUT 

#57 
. EXPR 
#48 

.EXPR+1 
;PUTINT 
.CR 

;BSOUT 

#255 

.EXPR 

#255 

.EXPR+1 

;PUTINT 

.CR 

;BSOUT 

#167 

.EXPR 

#254 

.EXPR+1 

;PUTINT 

.CR 

;BSOUT 


.EXPR+1 

+PUTSGN 

'ER KOMPLEMENT UND DRUCKE 

#0 

.EXPR 

.EXPR 

#0 

.EXPR+1 
. EXPR+1 
§ __ 

;BSOUT 

.EXPR+1 
+NODIG 
.EXPR 
#10 


AUS 
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C092: 

9006 


BCC 

+PUTDIG 

C094: 

20A1C0 

NODIG 

JSR 

;DIVIO 



* SPRINGE IN REKURSION 

C097: 

2089C0 


JSR 

;PUTINT 

C09A: 

0930 

=PUTDIG 

ORA# 

#'0 

C09C: 

20D2FF 


JSR 

;BSOUT 

C09F: 

68 


PLA 


COAO: 

60 


RTS 




* DIVISION DURCH ZEHN PROGRAMM AUS KAPITEL 

C0A1 : 

A200 

=DIV1 0 

LDX# 

#0 

C0A3: 

868E 


STX. 

•REMAIN 

C0A5: 

868F 


STX. 

•REMAIN+1 

C0A7: 

A010 


LDY# 

#16 

C0A9: 

0602 

=DIV1 

ASL. 

. EXPR 

CO AB: 

2603 


ROL. 

.EXPR+1 

COAD: 

2604 


ROL. 

.REMAIN 

COAF: 

2605 


ROL. 

.REMAIN+1 

C0B1: 

38 


SEC 


C0B2: 

A504 


LDA. 

•REMAIN 

C0B4: 

E90A 


SBC# 

#10 

C0B6: 

AA 


TAX 


C0B7: 

A505 


LDA. 

•REMAIN+1 

C0B9: 

E900 


SBC# 

#0 

COBB: 

9006 


BCC 

+DIV2 

COBD: 

8604 


STX. 

•REMAIN 

COBF: 

8505 


STA. 

.REMAIN+1 

COC1 : 

E602 


INC. 

• EXPR 

C0C3: 

88 

=DIV2 

DEY 


COC4: 

D0E3 


BNE 

+DIV1 

C0C6: 

A504 


LDA. 

•REMAIN 

COC8: 

60 


RTS 



ASSEMBLIERUNG BEENDET 
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Das DateiSystem 


Der Commodore 64 verwendet das bei Commodore Rechnern übliche 
Dateisystem. Dieses System kann gleichzeitig bis zu 10 Dateien 
verwalten. In BASIC gibt es genügend Unterstützung für die Benut¬ 
zung der Ein- und Ausgabe (=10: OPEN, PRINT# USW.). Wie kann man 
das in Maschinensprache erreichen? 

Das OS (Operating System = Betriebssystem) übergibt Ihnen die 
höchste ROM-Speicherstelle in einer Sprungleiste (über Vektoren), 
damit Sie die verschiedenen Unterprogramme leicht benutzen kön¬ 
nen. 

Nachfolgend eine kurze Erklärung der verschiedenen Routinen. 


Name : SETFPA 

Adresse : $FFBA 

beeinflußt : nichts 

Setzt die Dateiparameter. Die logische Dateinummer muß im Akkumu¬ 
lator sein. Das X-Register enthält die Gerätenummer und das Y- 
Register die Sekundäradresse. 


Name : SETFNA 

Adresse : $FFBD 

beeinflußt : nichts 

Setzt den Dateinamen. Der Akku enthält die Länge des Namens, das 
X-Register das niederwertige Byte der Adresse des Dateinamens und 
das Y-Register das höherwertige Byte. 


Name 

Adresse 

beeinflußt 


: OPEN 
: $FFC0 

: alle Register 


'Eröffnet 1 eine Datei. Zuerst müssen die Dateiparameter und der 
Dateiname übergeben sein. Ist das Carry-Flag gesetzt, dann wurde 
während des 'Eröffnens' der Datei ein Fehler festgestellt. 
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Name 

Adresse 

beeinflußt 


: CLOSE 
: $FFC3 

: alle Register 


'Schließt 1 eine Datei. Der Akku muß die Dateinummer der zu 
schließenden Datei enthalten. 


Name 

Adresse 

beeinflußt 


: CHKIN 
: $FFC6 

: alle Register 


Ermöglicht die Eingabe in eine logische Datei/Gerät. Das X- 
Register beinhaltet die Dateinummer einer schon 'geöffneten' 
Datei. Das Betriebssystem (OSV wird von nun an Daten von dem 
Gerät, das der Datei zugeordnet ist, einiesen. Ein gesetztes 
Carry-Flag zeigt einen Fehler an. 


Name : CKOUT 

Adresse : $FFC9 

beeinflußt : alle Register 

Ermöglicht die Ausgabe zu einer Datei bzw. einem Gerät. Das X- 

Register enthält die Dateinummer einer schon 'eröffneten' Datei. 
Das Betriebssystem (OS) wird von nun an Daten zum Gerät, das der 
Datei zugeordnet ist, ausgeben. Ein gesetztes Carry-Flag zeigt 
einen Fehler an. 


Name : CLRCH 

Adresse : $FFCC 

beeinflußt : alle Register 

Setzt die Ein- und Ausgabedateien auf die Standarddateien zurück. 

Eingabe von der Tastatur (Gerät 0) und Ausgabe auf den Bildschirm 
(Gerät 3). 


Name : BASIN 

Adresse : $FFCF 

beeinflußt : Y und Akku 

Byteeingabe vom Eingabegerät; erfolgt standardmäßig von der Ta- 
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Statur. BASIN wartet auf einen Wagenrücklauf (CR = carriage 
return) und gibt dann alle Bytes über den Akku einschließlich des 
Wagenrücklaufs (CR) aus. Gesetztes Carry zeigt einen Fehler an. 


Name : BSOUT 

Adresse : $FFD2 

beeinflußt : nichts 

Byteausgabe zum Ausgabegerät; erfolgt standardmäßig auf den Bild¬ 
schirm. Der Akku muß das Byte enthalten, das ausgegeben werden 
soll. Gesetztes Carry zeigt einen Fehler an. 


Name 

Adresse 

beeinflußt 


GET 

$FFE4 

Y und Akku 


Holt ein Byte vom Eingabegerät. Erfolgt standardmäßig von der 
Tastatur. Sind keine Daten vorhanden, wird eine Null zurückgege¬ 
ben. Gesetztes Carry zeigt einen Fehler an. 


Name : CLALL 

Adresse : $FFE7 

beeinflußt : alle Register 

'Schließt' alle Dateien und führt einen CLRCH durch. 


Die folgenden RumpfProgramme zeigen Ihnen, wie Sie auf verschie¬ 
denen Geräten in Maschinensprache Dateien 'eröffnen* können. Die 
equivalenten BASIC-Anweisungen werden mitangegeben. 


* 

OEFFNEN DER LOGISCHEN 

* 

* 

DATEI KASSETTE ZUR EINGABE 

* 

* 

IN BASIC: 0PEN1,1,0,"NAME" 

* 

@$FFBA 

=SETFPA 


§$FFBD 

=SETFNA 


@FFC0 

=OPEN 


@4 

=FNLEN 
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@$C000 

=ORG 

C000: 

4C07C0 

JMP 

;FNAME+4 



* DER DATEINAME 

C003: 


=FNAME 

&NAME 

C003: 

4E414D 



C006: 

45 



C007: 

A901 

LDA# 

#1 

C009: 

A201 

LDX# 

#1 

C00B: 

A000 

LDY# 

#0 

COOD: 

20BAFF 

JSR 

;SETFPA 

C010: 

A203 

LDX# 

$3 

C012: 

AOCO 

LDY# 

$C0 

C014: 

A904 

LDA# 

.FNLEN 

C01 6: 

20BDFF 

JSR 

;SETFNA 

C01 9: 

20C0FF 

JSR 

;OPEN 


* ANWENDER-PROGRAMM 


* 

* 
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* 

OEFFNEN DER LOGISCHEN 

* 



* 

DATEI 

KASSETTE ZUR AUSGABE 

* 



* 

IN BASIC: OPEN1,1,1,"NAME" 

* 



@$FFBA 


=SETFPA 




@$FFBD 


=SETFNA 




@$FFC0 


=OPEN 




@4 


=FNLEN 




@$C000 


=ORG 


C000: 

4C07C0 


JMP 

;FNAME+4 




* DER 1 

DATEINAME 


C003: 


=FNAME 


&NAME 


C003: 

4E414D 





C006: 

45 





C007: 

A901 


LDA# 

#1 


C009: 

A201 


LDX# 

#1 


COOB: 

A001 


LDY# 

#1 


COOD: 

20BAFF 


JSR 

;SETFPA 


C010: 

A203 


LDX# 

$3 


C01 2: 

AOCO 


LDY# 

$C0 


C014: 

A904 


LDA# 

#FNLEN 



40 



Das Dateisystem 


C016: 20BDFF JSR ;SETFNA 

C019: 20C0FF JSR ;OPEN 

* ANWENDER-PROGRAMM 

* 
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* 

OEFFNEN DER LOGISCHEN * 



* 

DATEI 

DISKETTE ZUR EINGABE * 



* 

IN BASIC: OPEN1,8,6,"0:NAME" * 



@ $FFBA 


=SETFPA 



@$FFBD 


=SETFNA 



@ $FFC0 


=OPEN 



§6 


=FNLEN 



§ $cooo 


=ORG 

C000: 

4C09C0 


JMP 

;FNAME+6 



* DER DATEINAME 

C003: 


=FNAME 


&0:NAME 

C003: 

303A4E 




C006: 

414D45 




C009: 

A901 


LDA# 

#1 

CO OB: 

A208 


LDX# 

#8 

COOD: 

A006 


LDY# 

#6 

COOF: 

20BAFF 


JSR 

;SETFPA 

C012: 

A203 


LDX# 

$3 

C014: 

AOCO 


LDY# 

$C0 

C016: 

A906 


LDA# 

#FNLEN 

C018: 

20BDFF 


JSR 

;SETFNA 

COIB: 

20C0FF 


JSR 

;OPEN 


* ANWENDER-PROGRAMM 


* 


ASSEMBLIERUNG BEENDET 
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* 

OEFFNEN DER LOGISCHEN * 

* 

DATEI DISKETTE ZUR AUSGABE * 

* 

IN BASIC: OPEN1,8,6,"0:NAME,S,W" 

§$FFBA 

=SETFPA 

§$FFBD 

=SETFNA 

@$FFC0 

=OPEN 

§10 

=FNLEN 

§$COOO 

=ORG 


C000: 

4C0DC0 

JMP 

;FNAME+1 



* DER DATEINAME 

C003: 


=FNAME 

&0:NAME, 

C003: 

303A4E 



C006: 

414D45 



C009: 

2C532C 



C00C: 

57 



C00D: 

A901 

LDA# 

#1 

C00F: 

A208 

LDX# 

#8 

C011 : 

A006 

LDY# 

#6 

C013: 

2OBAFF 

JSR 

;SETFPA 

C01 6: 

A203 

LDX# 

$3 

C018: 

A0C0 

LDY# 

$C0 

C01A: 

A904 

LDA# 

#FNLEN 

C01C: 

20BDFF 

JSR 

;SETFNA 

C020: 

20C0FF 

JSR 

;OPEN 


* ANWENDER-PROGRAMM 


* 


ASSEMBLIERUNG BEENDET 


Oft soll eine Ein- oder Ausgabe mit der STOP-Taste unterbrochen 
werden können. Das OS unterstützt das mit einem Unterprogramm, 
genannt STOPQ ($FFE1). Das Zero-Flag wird gesetzt, wenn die STOP- 
Taste gedrückt wird. Mit BEQ und BNE können Sie nun leicht ent¬ 
scheiden, welchen Weg Sie in Ihrem Programm weitergehen wollen. 
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Abspeichern und Laden von Programmen im OS 


Wünschen Sie einen Bereich des Speichers abzuspeichern oder zu 
laden, können Sie die schon vorhandenen Unterprogramme SAVE und 
LOAD benutzen. 


Name : LOAD 

Adresse : $FFD5 

beeinflußt : alle Register 

Lädt ein Programm in den Speicher (X enthält das niederwertige, Y 
das höherwertige Byte der Anfangsadresse). Der Akku zeigt an, ob 
ein 'verify* (A=1) oder ein 1 load' (A=0) durchgeführt werden 
soll. Notwendigerweise müssen zuerst wieder die verschiedenen Pa¬ 
rametertypen (Gerät, Sekundäradresse) und der Dateiname gesetzt 
werden. Ist die Sekundäradresse gleich Null, wird das Programm 
wie ein relatives BASIC-Programm geladen. Bei einer 1 als Sekun¬ 
däradresse wird absolut geladen. Gesetztes Carry zeigt einen Feh¬ 
ler an. 


Name : SAVE 

Adresse : $FFD8 

beeinflußt : alle Register 

Speichert ein Programm ab (X enthält das niederwer.tige Byte der 

Endadresse, Y das höherwertige und der Akku zeigt auf die zwei 
Speicherstellen in der Zeropage, die die Startadresse enthalten). 
Auch hier müssen die Dateiparameter und der Dateiname bereits ge¬ 
setzt sein. Sie können das Programm mit unterschiedlichen Se¬ 
kundäradressen abspeichern: 

sa = 0 abgespeichert als BASIC-Programm 

sa = 1 abgespeichert als Maschinenspracheprogramm 

sa = 2 abgespeichert als BASIC-Programm mit EOTBlock 

sa = 3 abgespeichert als Maschinenspracheprogramm mit EOT 

Das gesetzte Carrybit zeigt einen Fehler an. 

Die folgenden Programmbeispiele gelten für Diskette und Kassette. 
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* EIN PROGRAMM VON * 

* DER KASSETTE LADEN * 




§2 


=START 



@ $FFBA 


=SETFPA 



@ $FFBD 


=SETFNA 



@ $FFD2 


=BSOUT 



@$FFD5 


=LOAD 



@0 


=SECADR 



@0 


=LOADF 



@1 


=DEVNUM 



@$C100 


=FNAME 

CI 00: 




&TEST 

CI 00: 

544553 




CI 03: 

54 






@4 


=FLEN 



@$C000 


=ORG 



* SEKUNDAERADRESSE UND GERAETENUMMER ; 

C000: 

A000 


LDY# 

.SECADR 

C002: 

A201 


LDX# 

.DEVNUM 

C004: 

20BAFF 


JSR 

;SETFPA 



* DATEINAME UND LAENGE 

C0 06: 

A200 


LDX# 

$0 

C008: 

A0C1 


LDY# 

$C1 

C00A: 

A904 


LDA# 

#FLEN 

COOD: 

20BDFF 


JSR 

?SETFNA 



* ADRESSE j AB 

DER DAS PROGRAMM STEHEN 



* AKKU=0 

FUER 

LOAD 

C010: 

A602 


LDX. 

.START 

C012: 

A4 03 


LDY. 

.START+1 

C014: 

A900 


LDA# 

.LOADF 

C016: 

20D5FF 


JSR 

;LOAD 

C019: 

BO 01 


BCS 

+LOADERR 

C01B: 

00 


BRK 




* C=1 — 

> FEHLER AUSGABE VON • ?• 

C01C: 

A93F 

=LOADERR 

LDA# 

#•? 

C01E: 

20D2FF 


JSR 

;BSOUT 

C021 : 

00 


BRK 



ASSEMBLIERUNG BEENDET 
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EIN PROGRAMM VON 
DER DISKETTE LADEN 


CI 00 
CI 00 
CI 03 


@2 

g$FFBA 
g$FFBD 
g$FFD2 
g$FFD5 
@0 
@0 
@8 

@$C1 00 


=START 

=SETFPA 

=SETFNA 

=BSOUT 

=LOAD 

=SECADR 

=LOADF 

=DEVNUM 

=FNAME 

&0:TEST 


303A54 

455354 


@6 

@$cooo 

* SEKUNDAERADRESSE UND GERAETENUMMER SETZEN 


=FLEN 

=ORG 


C000: 

A000 

LDY# 

.SECADR 

C002: 

A208 

LDX# 

.DEVNUM 

C004: 

20BAFF 

JSR 

?SETFPA 

C006: 

A200 

LDX# 

$0 

C008: 

A0C1 

LDY# 

$C1 

C00A: 

A906 

LDA# 

.FLEN 

C00D: 

20BDFF 

JSR 

? SETFNA 



* ADRESSE> AB 

DER DAS PROGRAMM 



* AKKU=0 FUER 

LOAD 

C010: 

A602 

LDX. 

.START 

C012: 

A4 03 

LDY. 

.START+1 

C014: 

A900 

LDA# 

.LOADF 

C016: 

20D5FF 

JSR 

;LOAD 

C01 9: 

B001 

BCS 

+LOADERR 

C01B: 

00 

BRK 




* C=1 —> FEHLER AUSGABE VON ' 

C01C: 

A93F 

=LOADERR LDA# 

'? 

C01E: 

20D2FF 

JSR 

? BSOUT 

C021 : 

00 

BRK 



ASSEMBLIERUNG BEENDET 
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* EIN PROGRAMM AUF * 

* DIE KASSETTE SPEICHERN * 

@2 =START 

@4 =END 

@ $FFBA =SETFPA 

@ $FFBD =SETFNA 

@ $FFD2 =BSOUT 

§ $FFD8 =SAVE 

@1 =SECADR 

§ 1 =DEVNUM 

§$C100 =FNAME 


CI 00: 



&TEST 

CI 00: 

544553 



CI 03: 

54 




@4 


=FLEN 


@$C000 


=ORG 

C000: 

A001 

LDY# 

.SECADR 

C002: 

A201 

LDX# 

.DEVNUM 

C004: 

2OBAFF 

JSR 

;SETFPA 

C006: 

A200 

LDX# 

$0 

C008: 

A0C1 

LDY# 

$C1 

COOA: 

A904 

LDA# 

.FLEN 

COOD: 

20BDFF 

JSR 

;SETFNA 


* ENDADRESSE IN (X,Y), ZEIGER AUF DIE START- 

* ADRESSE IM AKKU 

C010: A604 LDX. .END 

C012: A405 LDY. .END+1 

C014: A902 LDA# .START 

C016: 20D8FF JSR ;SAVE 

C019: BO01 BCS +SAVEERR 

C01B: 00 BRK 

* C=1 —> FEHLER AUSGABE VON '?' 

C01C: A93F =SAVEERR LDA# '? 

C01E: 20D2FF JSR ;BSOUT 

C021: 00 BRK 

ASSEMBLIERUNG BEENDET 
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EIN PROGRAMM AUF 
DIE DISKETTE SPEICHERN 


CI 00: 


@2 

@4 

@$FFBA 
@$FFBD 
§ $FFD2 
§ $FFD 8 
@1 
@8 

@$C100 


=START 

=END 

=SETFPA 

=SETFNA 

=BSOUT 

=SAVE 

=SECADR 

=DEVNUM 

=FNAME 

&0:TEST 


CI 00: 
CI 03: 

303A54 

455354 

</> cr> 

o 

o 

o 

o 

=FLEN 

=ORG 

C000: 

A001 

LDY# 

.SECADR 

C002: 

A208 

LDX# 

.DEVNUM 

C004: 

2OBAFF 

JSR 

;SETFPA 

C006: 

A200 

LDX# 

$0 

C008: 

A0C1 

LDY# 

$C1 

C00A: 

A906 

LDA# 

.FLEN 

COOD: 

20BDFF 

JSR 

* ENDADRESSE 

* ADRESSE IM . 

;SETFNA 

IN (X,Y), ZEIGER 
AKKU 

C01 0: 

A604 

LDX. 

.END 

C012: 

A405 

LDY. 

.END+1 

C014: 

A902 

LDA# 

.START 

C016: 

20D8FF 

JSR 

;SAVE 

C019: 

BO 01 

BCS 

+SAVEERR 

C01B: 

00 

BRK 

* C=1 —> FEHLER, AUSGABE VON 

C01C: 

A93F 

=SAVEERR LDA# 

» 7 

C01E: 

20D2FF 

JSR 

;BSOUT 

C021 : 

00 

BRK 



ASSEMBLIERUNG BEENDET 
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Die RS232-Schnittstelle 


Die RS232-Schnittstelle 


Der Commodore 64 besitzt eine eingebaute RS232-Schnittstele, 
welche es Ihnen ermöglicht, Printer, Modems und Terminals anzu¬ 
schließen. Die RS232-Schnittstelle verwendet das User Port an der 
Rückseite des C64. Verwechseln Sie es bitte nicht mit dem Erwei¬ 
terungsport an der rechten Seite. Die Pinbelegung am User Port 
sieht folgendermaßen aus: 


- H 

PIN 

Besch 

h- 

6526 

Beschr. 

h- H 

Beschreibung 

i_ _| 

h- 

ein/ 

aus 





C 

pbo 

Empfangsdaten 

ein 

D 

PB1 

request to send 

aus 

E 

PB2 

data terminal ready 

aus 

F 

PB3 

ring indicator 

ein 

H 

PB4 

received line signal 

ein 

J 

PB5 

nicht belegt 

ein 

K 

PB6 

data set ready 

ein 

B 

FLG2 

Empfangsdaten 

ein 

M 

PA2 

Sendedaten 

aus 

A 

GND 

Schutzerde 


N 

GND 

Signalerde 


- + - + - H 

h- 


Wie Sie sicher bemerkt haben, gibt es zwei Leitungen, die die 
gleiche Bezeichnung haben: Empfangsdaten. Damit die RS232- 
Schnittstelle auch richtig funktioniert, müssen beide verbunden 
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werden. Außerdem müssen die Signale auf den für die RS232- 
Schnittstelle vorgeschriebenen Spannungspegel gebracht und einige 
Signale invertiert werden. Eine vollständige Anpassung der Sig¬ 
nale an die RS232-Bedingungen erhalten Sie durch das von Commo- 
dore angebotene Steckmodul. 

Die RS232-Schnittsteile benötigt einen Dateinamen, der aus zwei 
Byte besteht. Die Anordnung der Bits in diesen Bytes beeinflußt 
ganz wesentlich die Art, wie die Schnittstelle arbeitet. In BASIC 
müssen Sie die Werte dieser Bytes in zwei dezimale Zahlen umwan¬ 
deln und diese Zahlen mit Hilfe des CHR$-Befehls als Dateiname 
eingeben. In Maschinensprache müssen X- und Y-Register die Adres¬ 
se enthalten, an der die beiden Bytes (der Dateiname) stehen. Der 
Akku muß mit 2 (Länge des Dateinamens) geladen werden. Anschlie¬ 
ßend kann das Unterprogramm SETFNA aufgerufen werden. Die Geräte¬ 
nummer der RS232-Schnittstelle ist 2. Die Sekundäradresse sollte 
0 sein. Das erste Byte ist das Kontroll-Register-Byte. Die Bits 
haben folgende Bedeutung: 

Bit 0-3 Baudrate 




3 1 

2 ! 

1 ! 

0 

50 

Baud 

0 I 

0 ! 

0 ! 

1 

75 

Baud 

0 ! 

0 I 

1 I 

0 

110 

Baud 

0 ! 

0 ! 

1 I 

1 

134.5 

Baud 

0 ! 

1 ! 

0 ! 

0 

150 

Baud 

0 ! 

1 ! 

0 1 

1 

300 

Baud 

0 ! 

1 ! 

1 ! 

0 

600 

Baud 

0 ! 

1 ! 

1 ! 

1 

1200 

Baud 

1 ! 

0 ! 

0 ! 

0 

1800 

Baud 

1 ! 

0 1 

0 ! 

1 

2400 

Baud 

1 I 

0 ! 

1 ! 

0 


Bit 4 nicht verwendet 
Bit 5-6 Datenwortlänge 

6 ! 5 

8 Bit 0 ! 0 

7 Bit 0 ! 1 

6 Bit 1 1 0 

5 Bit 1 ! 1 
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Bit 7 Stopbit 

7 

1 Stopb. 0 

2 Stopb. 1 


Das zweite Byte ist das Befehls-Register-Byte. Es hat folgende 
Bedeutung: 

Bit 0 Handshake 

0 

0-3 Leit. 0 

X Leit. 1 


Bit 1-3 nicht verwendet 
Bit 4 Duplex 

4 

Full-Duplex 0 
Half-Duplex 1 


Bit 5-7 Parität 

7 ! 6 ! 5 


keine Parit. 

* 

i 

-+. 

* I 

0 

ungerade Par. 

0 

i 

0 ! 

1 

gearade Par. 

0 

i 

1 i 

1 

Mark Ubertr. 

1 

i 

0 ! 

1 

Space Übertr. 

1 

i 

1 i 

1 


Sie können zum Beispiel folgende Parameter für Ihren Drucker aus¬ 
wählen: 

2 Stopbit 
8 Datenbit 
300 Baud 

3 Handshake Leitungen 
Half-Duplex 
keine Parität 
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In diesem Fall müssen die beiden Bytes die Werte $86 und $10 
(hexadezimal) enthalten. Nun wird Ihre RS232-Schnittstelle mit 
diesen Werten arbeiten. Die RS232-Schnittsteile baut zwei Daten¬ 
puffer auf, wenn sie eröffnet wird. Jeder hat eine Kapazität von 
256 Byte (einer ist für das Empfangen und der andere für das 
Senden von Daten). Diese zwei Datenpuffer sind am Ende des RAM 
angeordnet. 

Das nächste Programm zeigt, wie man Dateien für Ein und Ausgabe 
für die RS232-Schnittstelle eröffnet. 


* 

VORBEREITEN DER RS232- 

* 

* 

SCHNITTSTELLE ALS EIN- 

* 

* 

UND AUSGABE 

* 

* 

IN BASIC 

* 

* 

OPEN1 ,2,0,CHR$(1 34)+CHR$(16) 

★ 


@$FFBA =SETFPA 

@$F.FBD =SETFNA 

§$FFC0 =OPEN 

* DER DATEINAME RS232 VARIABLE 




@$C1 00 


=FNAME 

CI 00: 

86 



#134 

CI 01 : 

10 



#16 



@2 


=FNLEN 



@$cooo 


=ORG 

C000: 

A901 


LDA# 

#1 

C002: 

A202 


LDX# 

#2 

C004: 

A000 


LDY# 

#0 

C006: 

2OBAFF 


JSR 

;SETFPA 

C009: 

A21 5 


LDX# 

$0 

C00B: 

A0C0 


LDY# 

$C1 

C00D: 

A902 


LDA# 

.FNLEN 

C00F: 

20BDFF 


JSR 

;SETFNA 

C012: 

20C0FF 


JSR 

;OPEN 


* ANWENDERPROGRAMM 


* 


ASSEMBLIERUNG BEENDET 
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Die Echtzeituhr 


Ein weiteres Merkmal des C64 ist die eingebaute Echtzeituhr. 
Diese Echtzeituhr befindet sich in dem Baustein 6526 (CIA = 
Complex Interface Adapter). Dieser Baustein CIA ist ein neuer 
Peripheriechip der 65XX-Familie. Die Anfangsadresse dieses Bau¬ 
steins im C64 ist $DC00. 

Die Echtzeituhr ist eine AM/PM-Uhr (AM = ante meridiem = Zeit von 
0 - 12 Uhr/ PM = post meridiem = Zeit von 12 bis 24 Uhr) mit 
einer Genauigkeit von 1/10tel Sekunde. Sie besteht aus vier ver¬ 
schiedenen Registern (1/1 Os, Sekunden, Minuten und Stunden). Sie 
werden als BCD-Zahlen ausgegeben, so daß man sie leicht in ASCII- 
Zahlen umwandeln kann. Zusätzlich zur normalen Tageszeit gibt es 
noch eine ALARMzeit. Stimmen beide Zeiten überein, gibt der 
Uhrbaustein einen Interrupt (IRQ) aus. Wollen Sie diese Alarm¬ 
funktion benutzen, müssen Sie den softwaremäßigen IRQ-Vektor auf 
Ihr eigenes Programm zeigen lassen und und das Interrupt Control 
Register (ICR $DC0F) abfragen. Bei gesetztem Bit 2 stimmen Alarm- 
und Echtzeituhr überein. Um die Alarmregister anstelle der Echt¬ 
zeitregister anzuwählen, muß Bit 7 des Control Registers B (CRB 
$DC0F) gesetzt sein. Folgende Register werden für die Echtzeituhr 
verwendet: 


T0D1 OTH 

$DC08 

BIT 

0-3 

: 

1/10tel Sekunde 



BIT 

4-7 

• 

immer 0 

TODSEC 

$DC09 

BIT 

0-3 


Sekunden 



BIT 

4-6 


10 Sekunden 



BIT 

7 


0 

TODMIN 

$DC0A 

BIT 

0-3 


Minuten 



BIT 

4-6 


10 Minuten 



BIT 

7 


0 

TODHR 

$DC0B 

BIT 

0-3 


Stunden 



BIT 

4 


10 Stunden 



BIT 

5-6 


0 



BIT 

7 


0 = AM, 1 = PM 

ICR 

$DC0D 

BIT 

2 

; 

Alarm = Echtzeit 
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CRA 

$DC0E 

BIT 7 

: 1 = 50Hz, 

0 = 60Hz 

CRB 

$DC0F 

BIT 7 

: 1 = Alarm 

setzen 


: 0 = Echtzeit setzen 


Beim Setzen der Zeit (zuerst die Stunden) hält die Uhr automa¬ 
tisch solange an, bis auch die Speicherstelle T0D1OTH gesetzt 
ist. 

Wird die Zeit gelesen, speichert der Uhrenbaustein alle Register 
in Zwischenregister, die dann gelesen werden können. Erst wenn 
TOD1OTH ebenfalls gelesen wurde, zeigen die Register wieder die 
aktuelle Zeit an. 

Sie sehen also, haben Sie die Echtzeituhr erst einmal gesetzt, 
dann liefert sie immer die genaue Zeit. 

Das folgende Programm setzt die Zeit und geht in eine Abfrage¬ 
schleife, in der laufend die Zeitregister gelesen und auf dem 
Bildschirm angezeigt werden. 


* ECHTZEITUHR 


* 


C000: 

C002: 


@$FB 

=TMP 

@$FD 

=AUX 

@$100 

=STACK 

@$DC00 

=CIA1 

@ $DC0 8 

=TOD1 OTH 

@$DC09 

=TODSEC 

@ $DC0A 

=TODMIN 

@$DC0B 

=TODHR 

@$DC0F 

=CRB 

@ $FFD2 

=BSOUT 

@$FFE4 

=GET 

@13 

=CR 

@$C000 

=ORG 

* BILDSCHIRM 

LOESCHEN 

LDA# 

#147 


20D2FF JSR ;BSOUT 

* AM ODER PM SETZEN 
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C005: 

20FFC0 

=PMSET 

JSR 

;PRINT 

C008: 

OD 



.CR 

C009: 

C009: 

41204F 



/A ODER 

COOC: 

444552 




COOF: 

2050BA 




C012: 

202CC1 


JSR 

;INPUT 

C015: 

A200 


LDX# 

#0 

COI 7: 

C941 


CMP# 

• A 

C019: 

F006 


BEQ 

+SETAM 

COI B: 

C950 


CMP# 

'P 

COI D: 

D0E6 


BNE 

+PMSET 



* am —> 

X=0, 

PM —> X= 

COI F: 

A280 


LDX# 

#128 

C021 : 

86FC 

=SETAM 

STX. 

.TMP+1 



* STUNDEN 


C023: 

20FFC0 

=HRSET 

JSR 

;PRINT 

C026: 

OD 



.CR 

C027: 

C027: 

535455 



/STUNDN: 

C02A: 

4E444E 




C02D: 

BA 




C02E: 

2034C1 


JSR 

;NINPUT 

C031 : 

BOFO 


BCS 

+HRSET 

CÜ33: 

C902 


CMP# 

#2 

C035: 

BOEC 


BCS 

+HRSET 

C037: 

85FB 


STA. 

.TMP 

C039: 

2034C1 


JSR 

;NINPUT 

C03C: 

B0E5 


BCS 

+HRSET 

C03E: 

2021 CI 


JSR 

;COMPTMP 

C041 : 

05FC 


ORA. 

.TMP+1 

C043: 

8D0BDC 


STA 

;TODHR 



* MINUTEN 


C046: 

20FFC0 

=MINSET 

JSR 

;PRINT 

C049: 

OD 



.CR 

C04A: 

C04A: 

4D494E 



/MIN : 

C04D: 

20203A 




C050: 

AO 




C051 : 

2034C1 


JSR 

;NINPUT 

C054: 

BOFO 


BCS 

+SECSET 

C056: 

C906 


CMP# 

#6 

C058: 

BOEC 


BCS 

+MINSET 

C05A: 

85FB 


STA. 

.TMP 
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C05C: 

2034C1 

JSR 

;NINPUT 

C05F: 

B0E5 

BCS 

+MINSET 

C061 : 

2021 CI 

JSR 

;COMPTMP 

C064: 

8D0ADC 

STA 

;TODMIN 


* SEKUNDEN 


C067: 

20FFC0 =SECSET 

JSR 

;PRINT 

C06A: 

OD 


.CR 

C06B: 



/SEK : 

C06B: 

53454B 



C06E: 

20203A 



CO 71 : 

AO 



C072: 

2034C1 

JSR 

;NINPUT 

C075: 

BOFO 

BCS 

+SECSET 

C077: 

C906 

CMP# 

#6 

C079: 

BOEC 

BCS 

+SECSET 

C07B: 

85FB 

STA. 

.TMP 

C07D: 

2034C1 

JSR 

;NINPUT 

C080: 

B0E5 

BCS 

+SECSET 

C082: 

2021 Ci 

JSR 

;COMPTMP 

C085: 

8D09DC 

STA 

;TODSEC 


* 1/10 SEKUNDEN 

C088: 

20FFC0 =SET1OTH 

JSR 

;PRINT 

C08B: 

OD 


• CR 

C08C: 



/1/1 OS: 

C08C: 

312F31 



C08F: 

30533A 



C092: 

AO 



C093: 

2034C1 

JSR 

;NINPUT 

C096: 

BOFO 

BCS 

+SET1OTH 

C098: 

8D08DC 

STA 

;TOD1OTH 


* BILDSCHIRM LOESCHEN 

C09B: 

A993 

LDA# 

#147 

C09D: 

20D2FF 

JSR 

;BSOUT 

C0A0: 

A913 =LOOP 

LDA# 

#19 

CO A3: 

20D2FF 

JSR 

;BSOUT 


* AM ODER PM? 


C0A5: 

2C0BDC 

BIT 

;TODHR 

C0A8: 

1004 

BPL 

+AM 

COAA: 

A950 

LDA# 

’P 

COAC: 

D002 

BNE 

+PRINTM 

COAE: 

A941 =AM 

LDA# 

’A 

COBO: 

20D2FF =PRINTM 

JSR 

;BSOUT 

C0B3: 

A94D 

LDA# 

•M 

C0B5: 

20D2FF 

JSR 

;BSOUT 
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C0B8: 

A920 

LDA# 

■ 

COBA: 

20D2FF 

JSR 

;BSOUT 



* GIBT STUNDEN 

AUS 

COBD: 

ADOBDC 

LDA 

;TODHR 

COCO: 

297F 

AND# 

$7F 

C0C2: 

20EFC0 

JSR 

;PRTDIGS 

C0C5: 

A93A 

LDA# 

i . 

C0C7: 

20D2FF 

JSR 

;BSOUT 



* MINUTEN 


COCA: 

ADOADC 

LDA 

;TODMIN 

COCD: 

20EFC0 

JSR 

;PRTDIGS 

CODO: 

A93A 

LDA# 

i . 

C0D2: 

20D2FF 

JSR 

;BSOUT 



* SEKUNDEN 


C0D5: 

AD09DC 

LDA 

;TODSEC 

C0D8: 

20EFC0 

JSR 

;PRTDIGS 

CODB: 

20FFC0 

JSR 

;PRINT 

CODE: 



/: 

CODE: 

BA 





* GEBE 1/10 SEKUNDEN AUS 

CODF: 

AD08DC 

LDA 

;TOD1 OTH 

C0E2: 

0930 

ORA# 

■o 

C0E4: 

20D2FF 

JSR 

;BSOUT 

C0E7: 

A930 

LDA# 

'0 

C0E9: 

20D2FF 

JSR 

;BSOUT 

COEC: 

4CA0C0 

JMP 

;LOOP 

COEF: 

48 

=PRTDIGS PHA 


COFO: 

4A 

LSRA 


C0F1 : 

4A 

LSRA 


C0F2: 

4A 

LSRA 


C0F3: 

4A 

LSRA 


C0F4: 

20FAC0 

JSR 

;DIGOUT 

C0F7: 

68 

PLA 


C0F8: 

290F 

AND# 

#15 

COFA: 

0930 

=DIGOUT ORA# 

•0 

COFC: 

4CD2FF 

JMP 

;BSOUT 


* ZEICHENAUSGABEPROGRAMM AUS KAPITEL 2 


COFF: 

68 

=PRINT PLA 


CI 00: 

85FD 

STA. 

.AUX 

CI 02: 

68 

PLA 


CI 03: 

85FE 

STA. 

.AUX+1 

CI 05: 

A200 

LDX# 

#0 

CI 07: 

E6FD 

=PRINT1 INC. 

.AUX 

CI 09: 

D002 

BNE 

+PRINT2 
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CI OB: 

E6FE 

INC. 

.AUX+1 

C10D: 

AI FD =PRINT2 

LDA@X 

.AUX 

C10F: 

297F 

AND# 

$7F 

C111 : 

20D2FF 

JSR 

? BSOUT 

C11 4: 

A200 

LDX# 

#0 

C11 6: 

AI FD 

LDA§X 

AUX 

C11 8: 

1 OED 

BPL 

+PRINT1 

C11A: 

A5FE 

LDA. 

.AUX+1 

C11C: 

48 

PHA 


CI ID: 

A5FD 

LDA. 

.AUX 

C11F: 

48 

PHA 


CI 20: 

60 

RTS 



* AKKU UND TMP 

IN EIN ] 

CI 21 : 

06FB =COMPTMP 

ASL. 

.TMP 

CI 23: 

06FB 

ASL. 

.TMP 

CI 25: 

06FB 

ASL. 

.TMP 

CI 27: 

06FB 

ASL. 

.TMP 

CI 29: 

05FB 

ORA. 

.TMP 

C12B: 

60 

RTS 



* WARTET 

AUF TASTENEINC 

C12C: 

20E4FF =INPUT 

JSR 

? GET 

CI 2F: 

FOFB 

BEQ 

+INPUT 

CI 31 : 

4CD2FF 

JMP 

;BSOUT 


* WANDELT EIN ; 

ASCII-DK 


* IST DAS DIGIT FALSCH 

CI 34: 

202CC1 =NINPUT 

JSR INPUT 

Ci 37: 

C930 

CMP# 

*0 

CI 39: 

9007 

BCC 

+NERROR 

C13B: 

C93A 

CMP# 

■ . 

C13D: 

B003 

BCS 

+NERROR 

C13F: 

290F 

AND# 

#15 

CI 41 : 

60 

RTS 


CI 42: 

38 =NERROR 

SEC 


CI 43: 

60 

RTS 


ASSEMBLIERUNG BEENDET 




Ihr Rechner verbringt bei diesem Programm den größten Teil der 
Zeit in einer Dauerschleife. Wir sollten einen besseren Weg 
finden, die Zeit anzuzeigen, ohne dabei den Rechner zu blockie¬ 
ren. Wir müssen mit einem Interrupt arbeiten. Das folgende Pro¬ 
gramm kann über BASIC aufgerufen werden. 
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Mit SYS12*4096 läuft der Dialog an, die Zeit kann gesetzt werden, 
und danach wird in BASIC zurückgekehrt. 

SYS12*4096+3 schaltet den Anzeigemodus ein. In der oberen linken 
Ecke des Bildschirms erscheint eine Digitaluhr, die die aktuelle 
Zeit anzeigt. 

SYS12*4096+6 schaltet den Anzeigemodus wieder aus, aber die Zeit 
läuft weiter. 

Die Uhr wird erst dann zurückgesetzt, wenn Sie Ihren Rechner aus- 
und wieder einschalten. 


* ECHTZEITUHR * 

* MIT ANZEIGE DURCH INTERRUPT * 


CO00: 4CO9C0 


@$FB 

=TMP 

@$FC 

=OLD1 0TH 

@$FD 

=POINT 

@$FD 

=AUX 

@$0286 

=ACTCOL 

@$031 4 

=IRQVECT 

@$0400 

=SCREEN 

@$D800 

=COLOR 

@ $DC0 0 

=CIA1 

@ $DC0 8 

=T0D1 0TH 

@$DC09 

=TODSEC 

@ $DC0A 

=TODMIN 

@$DC0B 

=TODHR 

@$DC0F 

=CRB 

@ $FFD2 

=BSOUT 

@ $FFE4 

=GET 

@$EA 

=OLDIRQH 

@$31 

=OLDIRQL 

@ $EA31 

=OLDIRQ 

@13 

=CR 

@19 

=HOME 

@147 

=CLS 

@$C000 

=ORG 

* ZEIT SETZEN 

SYS12*4096 

JMP 

; SET 
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* ZEIT FUER ANZEIGE SYS 12*4096+3 

C003: 

4C2CC0 

JMP 

;INSTALL 



* ANZEIGE EIN 

SYS 12*4096+6 

CO 06: 

4C39C0 

JMP 

;LEAVE 



* IRQVECTOR ZEIGT AUF EIGENEN TREIBER 

C009: 

A993 

=SET LDA# 

#CLS 

COOB: 

20D2FF 

JSR 

}BSOUT 



* CRB SETZEN FUER ECHTZEIT 

COOE: 

ADOFDC 

LDA 

;CRB 

C011 : 

297F 

AND# 

#127 

C013: 

8D0FDC 

STA 

;CRB 



* MELDUNG AUSGEBEN, ECHTZEIT SETZEN 

C016: 

2078C1 

JSR 

;PRINT 

C01 9: 

OD 


.CR 

C01A: 



/TAG.ZEIT SETZEN 

C01A: 

544147 



C01D: 

2E5A45 



C020: 

495420 



C023: 

534554 



C026: 

5A45CE 



C029: 

4C46C0 

JMP 

;CLOCK 

C02C: 

78 

=INSTALL SEI 


C02D: 

A900 

LDA# 

.OWNIRQL 

C02F: 

8D1403 

STA 

;IRQVECT 

C032: 

A9C1 

LDA# 

.OWNIRQH 

C034: 

8D1503 

STA 

;IRQVECT+1 

C037: 

58 

CLI 


C038: 

60 

RTS 


C039: 

78 

-LEAVE SEI 


C03A: 

A931 

LDA# 

.OLDIRQL 

C03C: 

8D1403 

STA 

;IRQVECT 

C03F: 

A9EA 

LDA# 

.OLDIRQH 

C041 : 

8D1503 

STA 

;IRQVECT+1 

C044: 

58 

CLI 


C045: 

60 

RTS 




* AM —> X=0, 

PM --> X=128 

C046: 

2078C1 

=SETCLCK JSR 

;PRINT 

C049: 

OD 


.CR 

C04A: 



/A ODER P: 

C04A: 

41204F 



C04D: 

444552 



C050: 

2050BA 



C053: 

20A5C1 

JSR 

;INPUT 
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C056: 

A200 

LDX# 

#0 

C058: 

C941 

CMP# 

1 A 

C05A: 

F006 

BEQ 

+SETAM 

C05C: 

C950 

CMP# 

*P 

C05E: 

D0E6 

BNE 

+SETCLCK 

C060: 

A280 

LDX# 

#128 

C062: 

86FC =SETAM 

STX. 

•TMP+1 


* STUNDEN 


C064: 

2078C1 =HRSET 

JSR 

;PRINT 

C067: 

OD 


.CR 

C068: 



/STUNDN: 

C068: 

535455 



C06B: 

4E444E 



C06E: 

BA 



C06F: 

20ADC1 

JSR 

;NINPUT 

C072: 

BOFO 

BCS 

+HRSET 

C074: 

C902 

CMP# 

#2 

C076: 

BOEC 

BCS 

+HRSET 

C078: 

85FB 

STA. 

.TMP 

C07A: 

20ADC1 

JSR 

;N INPUT 

C07D: 

B0E5 

BCS 

+HRSET 

C07F: 

209AC1 

JSR 

;COMPTMP 

C082: 

05FC 

ORA. 

.TMP+1 

CÖ84: 

8DOBDC 

STA 

;TODHR 


* MINUTEN 


CO 87: 

2078C1 =MINSET 

JSR 

;PRINT 

C08A: 

OD 


.CR 

C08B: 



/MIN : 

C08B: 

4D494E 



C08E: 

20203A 



C091 : 

AO 



C092: 

20ADC1 

JSR 

;NINPUT 

C095: 

BOFO 

BCS 

+SECSET 

C097: 

C906 

CMP# 

#6 

C099: 

BOEC 

BCS 

+MINSET 

C09B: 

85FB 

STA. 

.TMP 

C09D: 

20ADC1 

JSR 

; NINPUT 

COAO: 

B0E5 

BCS 

+MINSET 

C0A2: 

209AC1 

JSR 

;COMPTMP 

C0A5: 

8DOADC 

STA 

;TODMIN 


* SEKUNDEN 


C0A8: 

2078C1 =SECSET 

JSR 

;PRINT 

CO AB: 

OD 


.CR 

COAC: 



/SEK : 
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COAC: 

53454B 



COAF: 

20203A 



C0B2: 

AO 



C0B3: 

20ADC1 

JSR 

;NINPUT 

C0B6: 

BOFO 

BCS 

+SECSET 

C0B8: 

C906 

CMP# 

#6 

COBA: 

BOEC 

BCS 

+SECSET 

COBC: 

85FB 

STA. 

.TMP 

COBE: 

20ADC1 

JSR 

;NINPUT 

C0C1 : 

B0E5 

BCS 

+SECSET 

C0C3: 

209AC1 

JSR 

;COMPTMP 

C0C6: 

8D09DC 

STA 

;TODSEC 


* 

1/10 SEKUNDEN (IMMER i 

C0C9: 

A900 

LDA# 

#0 

COCB: 

8D08DC 

STA 

;TOD1OTH 

COCE: 

60 

RTS 



* IRQ TREIBER: VERAENDERN SICH 1/10 S, WIRD NEUE 

* ZEIT ANGE ZEIGT, SONST SPRUNG IN DEN OS TREIBER 



§ $C1 


=OWNIRQH 


@$0 


=OWNIRQL 


@$C100 


=OWNIRQ 

CI 00: AD08DC 


LDA 

; TOD1 OTH 

CI 03: C5FC 


CMP. 

.OLD1OTH 

Ci 05: F005 


BEQ 

+NORMIRQ 

CI 07: 85FC 


STA. 

.OLD1 OTH 

CI 09: 200FC1 


JSR 

;SHOWTIM 

C10C: 4C31EA 

=NORMIRQ 

JMP 

;OLDIRQ 


* ZEITANZEIGE 

AUF DEM BILDSCHIRM 

C10F: 78 

=SHOWTIM 

SEI 


C110: A900 


LDA# 

#0 

C112: 85FD 


STA. 

.POINT 


* AM ODER PM AUSGABE 

Ci 14: 2C0BDC 


BIT 

;TODHR 

C117: 1004 


BPL 

+AM 

C119: A910 


LDA# 

#16 

C11B: D002 


BNE 

+PRINTM 

C11D: A901 

=AM 

LDA 

#1 

C11F: 2069C1 

=PRINTM 

JSR 

;ZOUTPUT 

CI 22: A920 


LDA# 

i 

CI 24: 2069C1 


JSR 

;ZOUTPUT 


* STUNDENAUSGABE 

CI 27: ADOBDC 


LDA 

;TODHR 

C12A: 297F 


AND# 

$7F 

C12C: 2059C1 


JSR 

;PRTDIGS 
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C12F: 

A93A 

LDA# 

i . 

Ci 31 : 

2069C1 

JSR 

;ZOUTPUT 



* MINUTEN 


CI 34: 

ADOADC 

LDA 

;TODMIN 

CI 37: 

2059C1 

JSR 

;PRTDIGS 

C13A: 

A93A 

LDA# 

i . 

C13C: 

2069C1 

JSR 

;ZOUTPUT 



* SEKUNDEN 


CI 3F: 

AD09DC 

LDA 

;TODSEC 

CI 42: 

2059C1 

JSR 

;PRTDIGS 

Ci 45: 

A93A 

LDA# 

• : 

CI 47: 

2069C1 

JSR 

;ZOUTPUT 



* GEBE 1/10 SEKUNDEN AUS 

CI 4A: 

AD08DC 

LDA 

;TODl 0TH 

C14D: 

0930 

ORA# 

•o 

C14F: 

2069C1 

JSR 

;ZOUTPUT 

Ci 52: 

A930 

LDA# 

'0 

CI 54: 

2069C1 

JSR 

;ZOUTPUT 

Ci 57: 

58 

CLI 


CI 58: 

60 

RTS 


CI 59: 

48 

=PRTDIGS PHA 


C15A: 

4A 

LSRA 


C15B: 

4A 

LSRA 


C15C: 

4A 

LSRA 


CI 5D: 

4A 

LSRA 


CI 5E: 

2064C1 

JSR 

;DIGOUT 

Ci 61 : 

68 

PLA 


CI 62: 

290F 

AND# 

#15 

CI 64: 

0930 

=DIGOUT ORA# 

'0 

CI 66: 

4C69C1 

JMP 

;ZOUTPUT 



* ZEICHEN AUF 

DEN SCHIRM 

Ci 69: 

A6FD 

=ZOUTPUT LDX. 

.POINT 

CI 6B: 

9D0004 

STAX 

.SCREEN 

C16E: 

AD8602 

LDA 

;ACTCOL 

CI 71 : 

9D00D8 

STAX 

.COLOR 

CI 74: 

E8 

INX 


CI 75: 

86FD 

STX • 

.POINT 

Ci 77: 

60 

RTS 



* ZEICHENAUSGABEPROGRAMM AUS KAPITEL 2 


CI 78: 

68 

=PRINT 

PLA 


CI 79: 

85FD 


STA. 

• AUX 

CI 7B: 

68 


PLA 


C I 7C: 

85FE 


STA. 

.AUX+1 

Ci 7E: 

A200 


LDX# 

#0 
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Ci 80: 

E6FD =PRINT1 

INC. 

.AUX 

CI 82: 

DO 02 

BNE 

+PRINT2 

Ci 84: 

E6FE 

INC. 

.AUX+1 

C I 86: 

Al FD =PRINT2 

LDA@X 

• AUX 

Ci 88: 

297F 

AND# 

$7F 

C18A: 

20D2FF 

JSR 

;BSOUT 

C18D: 

A200 

LDX# 

#0 

C18F: 

Al FD 

LDA@X 

.AUX 

CI 91 : 

1 OED 

BPL 

+PRINT1 

CI 93: 

A5FE 

LDA. 

.AUX+1 

CI 95: 

48 

PHA 


CI 96: 

A5FD 

LDA. 

.AUX 

CI 98: 

48 

PHA 


CI 99: 

60 

RTS 



* AKKU UND TMP IN EIN BYTE BRINGEN 

C19A: 06FB =COMPTMP ASL. .TMP 

C19C: 06FB ASL. .TMP 

C19E: 06FB ASL. .TMP 

CIAO: 06FB ASL. .TMP 

C1A2: 05FB ORA. .TMP 

CI A4: 60 RTS 

* WARTET AUF TASTENEINGABE, AUSGABE BILDSCHIRM 


C1A5: 

20E4FF =INPUT 

JSR 

; GET 

C1A8: 

F0FB 

BEQ 

+ INPUT 

C1AA: 

4CD2FF 

JMP 

;BSOUT 


* WANDELT EIN ASCII-DIGIT IN EINE BINAERZAHL UM 

* IST DAS DIGIT FALSCH, WIRD CARRY GESETZT 
Ci AD: 20A5C1 =NINPUT JSR ;INPUT 

CI BO: C930 CMP# '0 

C1B2: 9007 BCC +NERROR 

C1B4: C93A CMP# ': 

C1B6: BO03 BCS +NERROR 

C1B8: 290F AND# #15 

C1BA: 60 RTS 

C1BB: 38 =NERROR SEC 

C1BC: 60 ' RTS 

ASSEMBLIERUNG BEENDET 
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Wie man neue BASIC-Befehle einfügt 


In BASIC können Sie Ihre eigenen maschinengeschriebenen Unter¬ 
programme mit dem SYS-Befehl aufrufen. Es ist auch möglich, Ihre 
eigenen Befehle innerhalb des BASIC-Interpreters unterzubringen. 

Zuerst sehen wir uns an, wie der SYS-Befehl verwendet wird, um 
Ihre eigenen Kommandos in BASIC auszuführen. Wollen Sie ein 
Unterprogramm vom BASIC aus aufrufen, dann müssen Sie es in einem 
bestimmten Speicherbereich ablegen. Dieser geschützte Speicherbe¬ 
reich beginnt bei $C000 (12*4096) und endet bei $CFFF. Alle 
unsere Beispiele laufen in diesem Bereich. 

Manchmal möchten Sie an Ihr Unterprogramm von BASIC aus Parameter 
übergeben. Wir diskutieren einige dieser Unterprogramme und zei¬ 
gen ein Programmbeispiel. 

Name : CHECKCOM 
Adresse : $AEFD 

Dieses Unterprogramm sucht nach einem Komma (', ' ) und überspringt 
es. Der BASIC-Zeiger zeigt nun unmittelbar auf die Stelle hinter 
dem Komma. Wird kein Komma gefunden, unterbricht BASIC und gibt 
eine Fehlermeldung aus. 


Name : GETCOORD 
Adresse : $B7EB 

Dieses Unterprogramm holt zwei Zahlen, die durch ein Komma ge¬ 
trennt sein müssen. Die erste Zahl (Ganzzahl ohne Vorzeichen) ist 
eine 16 Bit Zahl und wird auf den Speicherplätzen $14 (LSB) und 
$15 (MSB) abgelegt. Die zweite Zahl ist ein Byte-Ausdruck. Das 
heißt, daß es sich um eine Zahl im Bereich zwischen 0 und 255 
handelt. Der Wert wird im X-Register übergeben. Sind die Werte 
der zwei Zahlen außerhalb des zulässigen Bereichs, wird eine Feh¬ 
lermeldung ausgegeben und BASIC unterbricht. Auch ein fehlendes 
Komma stoppt BASIC. 
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Name : GETBYTE 
Adresse : $B79E 

GETBYTE holt einen Byte-Ausdruck (0 bis 255) und überträgt ihn 
ins X-Register. Ist der Ausdruck außerhalb des zulässigen Be¬ 
reichs, unterbricht BASIC und gibt eine Fehlermeldung aus. 


Name : GETPARAM 

Adresse : $E1D4 

GETPARAM holt den Dateinamen und die Gerätenummer. Wenn die 
Dateispezifikation falsch ist, erscheint eine Fehlermeldung. 

Das Programm im nächsten Kapitel verwendet diese Unterprogramme. 

Anstelle des SYS-Befehls können Sie Ihre eigenen Schlüsselworte 
benutzen. Dazu müssen Sie einen Eingriff in den BASIC-Interpreter 
vornehmen. Das nächste Bild zeigt uns einen Teil der Schleife: 


A7E1 6C0803 JMP ($0308) 
A7E4 207300 JSR $0073 
A7E7 20EDA7 JSR $A7ED 
A7EA 4CAEA7 JMP $A7AE 


zeigt auf die nächste Instruktion 
CHRGET holt das nächste Zeichen 
führt BASIC-Anweisung aus 
springt an den Anfang der Schleife 


Sie können also den Zeiger ($0308, $0309) ändern und auf Ihren 
eigenen 'Interpreter 1 zeigen lassen. Dieses Entschlüsselungspro¬ 
gramm prüft auf Ihre eigenen Schlüsselworte. Sollten Sie das 
nicht wünschen, springen Sie einfach nach $A7E7 und der Interpre¬ 
ter wird normal weitermachen. Sie lassen Ihr eigenes Programm 
ablaufen und springen dann nach $A7AE, an den Anfang der Inter¬ 
preter-Schleife. Gewöhnlich stellt man den eigenen Befehlen zur 
besseren Unterscheidung ein Symbol vor, wie usw. So müssen 
Sie nur auf dieses Symbol abfragen, in Ihrerer eigenen Befehlsta¬ 
belle nachsehen und den Befehl, wenn er gültig war, ausführen. 
Kapitel 9 beschreibt ein Programm, das zusätzliche Befehle ver¬ 
wendet. 

Näheres über die Unterprogramme in BASIC können Sie den Handbü¬ 
chern über C64-Speicheraufteilung und das ROM-Listing entnehmen. 


72 




Hochauflösende Grafik 




Hochauflösende Grafik 


Hochauflösende Grafik 


Das folgende Programm ermöglicht Ihnen das Arbeiten im hochauflö¬ 
senden Grafikmodus Ihres C64. Das heißt, Sie können mit dieser 
Programmhilfe in BASIC sehr schnell Bildpunkte setzen oder 
löschen. Außerdem dient es als Beispiel für die Verwendung von 
SYS-Befehlen bei der Ausführung Ihrere eigenen BASIC-Programme. 
Das Programm enthält eine Sprungtabelle. Sie müssen nur jeweils 
drei hinzuaddieren, damit Sie zur Anfangsadresse des nächsten 
Befehls gelangen. SYS12*4096 initialisiert den Bildschirm. 
SYS12*4096+3 löscht den Bildschirm und SYS12*4096+6,5 schaltet 
die Hintergrundfarbe 5 (grün) ein. Sie können den Objekt-Code 
dieses Programmes mit einem Monitor abspeichern und es in BASIC 
mit dem LOAD-Befehl laden. Dateiname, Gerätenummer und Sekundär¬ 
adresse (= 1) müssen im Befehl aufgeführt sein. Das Programm wird 
an die Adresse $C000 geladen. Danach müssen Sie NEW eingeben. Nun 
können Sie Ihr eigenes BASIC-Programm laden. Mit dem Programm 
'Hochauflösende Grafik' können Sie den Inhalt des Bildschirms auf 
Kassette oder Diskette abspeichern und wieder lesen. Das Programm 
verwendet Unterprogramme, die in vorhergehenden Kapiteln bereits 
besprochen wurden. Als Beispiel sollten Sie einmal versuchen, das 
Programm mit einem Zeichenbefehl (drawto) zu erweitern, damit Sie 
schnell Linien ziehen können. 

Das BASIC-Programm ist ein Test für das anschließende Assembler¬ 
programm. 


5 REM TESTDEMO HOCHAUFLÖSENDE GRAFIK 

10 INPUT"XI=WERT ";X1 

20 INPUT"Y1=WERT ";Y1 

30 INPUT"X2 =WERT ";X2 

40 INPUT"Y2=WERT ";Y2 

45 SYS12*4096:SYS12*4096+3 

55 DX=X2-X1:DY=Y2-Y1 

57 IF ABS(DY)<ABS(DX) THEN 64 

58 FOR YL=Y1 TO Y2 STEP SGN(DY) 

60 SYS12*4096+9,DX/DY*YL+X1,YL 

62 NEXT YL 

63 GOTO 300 

64 FOR YL=X1 TO X2 STEP SGN(DX) 

65 SYS12*4096+9,XL,DY/DX*XL+Y1 
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68 NEXT XL 

300 IF ABS(DY)<ABS(DX) THEN 350 
310 FOR YL=Y1 TO Y2 STEP SGN(DY) 
320 SYS12*4096+12,DX/DY*YL+X1,YL 
330 NEXT YL 
340 GOTO 380 

350 FOR XL=X1 TO X2 STEP SGN(DX) 
360 SYS12*4096+12,XL,DY/DX*XL+Y1 
370 NEXT XL 
380 GOTO 57 


* HILFSPROGRAMM ZUR ER- * 

* STELLUNG HOCHAUFLOE- * 

* SENDER GRAFIKEN * 


C000: 4C18C0 
C003: 4C33C0 
C006: 4C4AC0 


@$14 

=XCOORD 

@ $B9 

=DECADR 

@$FD 

=TEMP 

@ $FD 

=ADDRESS 

@ $4 

=COLORLH 

§ $8 

=COLORHH 

@$20 

=GRAPHLH 

@$0 

=GRAPHLL 

@$40 

=GRAPHHH 

@$0 

=GRAPHHL 

@ $AEFD 

=CHCKCOM 

@ $B79E 

=GETBYTE 

@$B7EB 

=GETCOOR 

@ $E1 D4 

=GETPARM 

@ $FFD2 

=BSOUT 

@ $FFD5 

=LOAD 

@ $FFD8 

=SAVE 

@ $D000 

=VIDEO 

@255 

=FALSE 

@0 

=TRUE 

@147 

=CLS 

@$C000 

=ORG 


* INITIALISIERUNG HOCHAUFLOESENDE GRAFIK SYS12*4096 

JMP ;INIT 

* BILDSCHIRM LOESCHEN SYS12*4096+3 

JMP ;CLEAR 

* HINTERGRUNDFARBE SYS12*4096+6,COLOR 

JMP ;COLOR 
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C009: 

COOC: 

COOF: 

C012: 

C01 5: 
COI 8: 
C01B: 
COI E: 
C021 : 
C024: 
C026: 
C029: 
C02B: 
C02E: 
C030: 
C033: 
C035: 
C037: 
C039: 
C03B: 
C03C: 
C03E: 
C03F: 
C041 : 
C043: 
C045: 
C047: 
C049: 
C04A: 
C04D: 
C050: 
C052: 
C054: 
C056: 
C058: 
C059: 
C05B: 
C05C: 


* PLOT X 

>Y (0 

<= X < 320); ( 

* SYS12*4096+9 

> X, Y 

4C6BC0 

JMP 

; SET 

* X,Y LOESCHEN 

SYS12*4096+12 

4C67C0 

JMP 

;RESET 

* GRAFIK 

AUS, 

ZURUECK IN NOR 

4CD8C0 

JMP 

;SWCHOFF 

* GRAFIK 

ABSPEICHERN SYS12*4 

4CE9C0 

JMP 

;SCREENS 

* GRAFIK 

LADEN 

SYS12*4096+21 

4C00C1 

JMP 

;SCREENL 

AD11D0 =INIT 

LDA 

;VIDEO+1 7 

8D52C1 

STA 

;SCRATCH+1 

AD1 8D0 

LDA 

;VIDEO+24 

8D51C1 

STA 

; SCRATCH 

A93B 

LDA# 

#59 

8D1 1 DO 

£>ta 

;VIDEO+1 7 

A91 8 

LDA# 

#24 

8D1 8D0 

STA 

;VIDEO+24 

A21 0 

LDX# 

#16 

4C50C0 

JMP 

;COLOR1 

A000 =CLEAR 

LDY# 

#0 

A920 

LDA# 

#GRAPHLH 

84FD 

STY. 

.TEMP 

85FE 

STA. 

.TEMP+1 

98 =CLEAR1 

TYA 


91 FD =CLEAR2 

STA@¥ 

.TEMP 

C8 

INY 


DOFB 

BNE 

+CLEAR2 

E6FE 

INC. 

•TEMP+1 

A5FE 

LDA. 

.TEMP+1 

C940 

CMP# 

.GRAPHHH 

D0F2 

BNE 

;CLEAR1 

60 

RTS 


20FDAE =COLOR 

JSR 

;CHCKCOM 

209EB7 

JSR 

;GETBYTE 

A000 =COLOR1 

LDY# 

#0 

A904 

LDA# 

.COLORLH 

84FD 

STY. 

.TEMP 

85FE 

STA. 

.TEMP+1 

8A =COLOR2 

TXA 


91 FD =COLOR3 

STAgr 

.TEMP 

C8 

INY 


DOFB 

BNE 

+COLOR3 


(0 <= Y < 200) 


SYS12*4096+15 
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C05E: 

E6FE 


INC. 

.TEMP+1 

C060: 

A5FE 


LDA. 

.TEMP+1 

C062: 

C908 


CMP# 

.COLORHH 

C064: 

D0F2 


BNE 

+COLOR2 

C066: 

60 

=OUTRANG 

RTS 


C067: 

A9FF 

=RESET 

LDA# 

.FALSE 

C069: 

D002 


BNE 

+SET1 

C06B: 

A900 

=SET 

LDA# 

#TRUE 

C06D: 

8D53C1 

=SET1 

STA 

;RSFLG 

CÜ70: 

20FDAE 


JSR 

;CHCKCOM 

C073; 

20EBB7 


JSR 

;GETCOOR 

C076: 

E0C8 


CPX# 

#200 

C078: 

BOEC 


BGS 

+OUTRANG 

C07A: 

A514 


LDA. 

.XCOORD 

C07C: 

C940 


CMP# 

#64 

C07E: 

A51 5 


LDA. 

.XCOORD+1 

C080: 

E901 


SBC# 

#1 

C082: 

B0E2 


BCS 

+OUTRANG 

C084: 

8A 


TXA 


C085: 

4A 


LSRA 


CO 86: 

4A 


LSRA 


C087: 

4A 


LSRA 


C088: 

OA 


ASLA 


CO 89: 

A8 


TAY 


C08A: 

B90FC1 


LDAY 

•MUL320 

C08D: 

85FD 


STA. 

•ADDRESS 

C08F: 

B910C1 


LDAY 

•MUL32+1 

C092: 

85FE 


STA 

;ADDRESS+1 

C094: 

8A 


TXA 


C095: 

2907 


AND# 

#7 

C097: 

18 


CLC 


CO 98: 

65FD 


ADC. 

.ADDRESS 

C09A: 

85FD 


STA. 

.ADDRESS 

C09C: 

A5FE 


LDA. 

•ADDRESS+1 

C09E: 

6900 


ADC# 

#0 

COAO: 

85FE 


STA. 

•ADDRESS+1 

C0A2: 

A51 4 


LDA. 

•XCOORD 

CO A4: 

2907 


AND# 

#7 

C0A6: 

A8 


TAY 


C0A7: 

A51 4 


LDA. 

.XCOORD 

COA9: 

29F8 


AND# 

$F8 

COAB: 

18 


CLC 


COAC: 

65FD 


ADC. 

•ADDRESS 

COAE: 

85FD 


STA. 

• ADDRESS 
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C0B0: 

A5FE 

LDA. 

.ADDRESS+1 

C0B2: 

6515 

ADC. 

.XCOORD+1 

C0B4: 

85FE 

STA. 

.ADDRESS+1 

C0B6: 

A5FD 

LDA. 

.ADDRESS 

C0B8: 

18 

CLC 


C0B9: 

6900 

ADC# 

#GRAPHLL 

COBB: 

85FD 

STA. 

.ADDRESS 

COBD: 

A5FE 

LDA. 

.ADDRESS+1 

COBF: 

6920 

ADC# 

.GRAPHLH 

C0C1 : 

85FE 

STA. 

.ADDRESS+1 

C0C3: 

A200 

LDX# 

#0 

C0C5: 

Al FD 

LDAgX 

.ADDRESS 

C0C7: 

2C53C1 

BIT 

;RSFLG 

COCA: 

1006 

BPL 

+ SET2 

COCC: 

3949C1 

ANDY 

.ANDMASK 

COCF: 

4CD5C1 

JMP 

;SET3 

C0D2: 

1941 CI =SET2 

ORAY 

.ORMASK 

C0D5: 

81 FD =SET3 

STA@X 

.ADDRESS 

C0D7: 

60 

RTS 


C0D8: 

AD52C1 =SWCHOFF 

LDA 

;SCRATCH+1 

CODB: 

8D11 DO 

STA 

;VIDEO+17 

CODE: 

AD51C1 

LDA 

;SCRATCH 

C0E1 : 

8D1 8D0 

STA 

;VIDEO+24 

C0E4: 

A993 

LDA# 

• CLS 

C0E6: 

4CD2FF 

JMP 

;BSOUT 

C0E9: 

20FDAE =SCREENS 

JSR 

;CHCKCOM 

COEC: 

20D4E1 

JSR 

;GETPARM 

COEF: 

A200 

LDX# 

.GRAPHHL 

C0F1 : 

A040 

LDY# 

.GRAPHHH 

C0F3: 

A900 

LDA# 

.GRAPHLL 

C0F5: 

85FD 

STA. 

.TEMP 

C0F7: 

A920 

LDA# 

.GRAPHLH 

C0F9: 

85FE 

STA. 

.TEMP+1 

COFB: 

A9FD 

LDA# 

.TEMP 

COFD: 

4CD8FF 

JMP 

; SAVE 

CI 00: 

20FDAE =SCREENL 

JSR 

? CHCKCOM 

C1 0 3: 

20D4E1 

JSR 

;GETPARM 

CI 06: 

A961 

LDA# 

#97 

CI 08: 

85 B9 

STA. 

.SECADR 

C10A: 

A900 

LDA# 

#0 

CI OC: 

4CD5FF 

JMP 

;LOAD 


* MULTIPLIKATIONSTABELLE 

Ci OF: 

0000 =MUL320 


;#0 

C111 : 

4001 


; #320 


320) 
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C11 3: 
C11 5: 
C11 7: 
C11 9: 
CI 1B: 
CI ID: 
CI 1F: 
CI 21 : 
CI 23: 
CI 25: 
CI 27: 
CI 29: 
CI 2B: 
C12D: 
CI 2F: 
CI 31 : 
CI 33: 
CI 35: 
CI 37: 
CI 39: 
CI 3B: 
CI 3D: 
CI 3F: 

CI 41 : 
CI 42: 
CI 43: 
CI 44: 
CI 45: 
CI 46: 
CI 47: 
CI 48: 

CI 49: 
C14A: 
C14B: 
CI 4C: 
C14D: 
CI 4E: 
CI 4F: 
CI 50: 
CI 51 : 
Ci 53: 
CI 54: 


8002 


; #640 

C003 


;#960 

0005 


;#1280 

4006 


;#1600 

8007 


;#1920 

C008 


;#2240 

000A 


;#2560 

400B 


; #2880 

800C 


;#3200 

C00D 


; #3520 

000F 


; #3840 

4010 


;#4160 

8011 


; #4480 

C01 2 


;#4800 

0014 


;#5120 

4015 


;#5440 

8016 


;#5760 

C017 


? #6080 

0019 


; #6400 

401A 


; #6720 

801 B 


;#7040 

C01C 


;#7360 

001 E 


; #7680 


* MASKE 

BITSETZEN FUER DAS ANGEWAEHLTE BYTE 

80 

=ORMASK 

$80 

40 


$40 

20 


$20 

10 


$1 0 

08 


$8 

04 


$4 

02 


$2 

01 


$1 


* MASKE : 

BITRUECKSETZEN FUER DAS ANGEWAEHLTE BYTE 

7F 

=ANDMASK 

$7F 

BF 


$BF 

DF 


$DF 

EF 


$EF 

F7 


$F7 

FB 


$FB 

FD 


$FD 

FE 


$FE 

0000 

=SCRATCH 

; #0 

00 

=RSFLG 

#0 

00 

=YCOORD 

#0 
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Hilfsprogramm zur Diskettenbedienung 


Hilfsprogramn zur Diskettenbedienung 


Das hier beschriebene Programm erweitert BASIC um folgende Dis- 
ketten-Befehle: 

DLOAD 

Arbeitet wie die bekannte LOAD-Anweisung, aber die Gerätenummer 
ist immer 8. Der Dateiname kann mit der Sekundäradresse gesetzt 
werden. Einzelheiten lesen Sie bitte im Commodore-Handbuch nach. 

DSAVE 

Der SAVE-Befehl für Gerät 8, wie DLOAD. 

DPRINT 

Dieser Befehl kann Befehle mit einer einzigen Anweisung , wie 
NEW, COPY, RENAME, unmittelbar zur Diskette senden. Er entspricht 
der folgenden BASIC-Sequenz: 

0PEN1 5,8,15,"<Befehl>":CLOSEI 5 


DERROR 

Zeigt den Zustand der Diskette an, ersetzt das folgende Pro¬ 
gramm: 


10 OPEN1 5,8,15 
20 INPUT#15,A$,B$,C$,D$ 

30 PRINTA$,B$,C$,D$ 

40 CLOSEI 5 

Die DERROR-Anweisung gibt die Fehlernummer, Fehlermeldung, Spur¬ 
nummer und Sektornummer aus. 

DLIST 

Dieser Befehl zeigt das Inhaltsverzeichnis der Diskette, dabei 
wird das im Speicher stehende BASIC-Programm nicht zerstört. 

Das Hilfsprogramm muß mit der Sekundäradresse = 1 geladen werden 
(absolutes Laden). Danach geben Sie NEW und SYS12*4096 ein. Nun 
können Sie die neuen Befehle benutzen. 

SYS12*4096 ruft ein Programm auf, das in die Interpreterschleife 
eingreift (der Vektor auf $0308-$0309 wird geändert). 
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* HIL FS PROGR AMM ZUR * 

* DISKETTEN BEDIENUNG * 


@$A 

=FLAG 

@$7A 

=BASICP 

@$90 

=ST 

§$B7 

=FNLENG 

§$B9 

=SECADR 

§$BA 

=DEVNUM 

@$BB 

=FNADRES 

@$FB 

=TMP 

@$0073 

=CHRGE T 

@$A7E7 

=EXECUTE 

§$A7AE 

=INTERP 

§$BDCD 

=LNPRT 

§$E200 

=PARGET 

§$E257 

=GETNAME 

@$E206 

=NEXTQT 

@$E0F9 

=GIVERR 

§$F3D5 

=SENDFNA 

§$F642 

=CLOSEFI 

§$FF96 

=SENDSEC 

§$FFA5 

=IECINP 

@$FFAB 

=UNTALK 

§$FFB4 

=IECTALK 

@$FFBA 

=SETFPA 

@$FFBD 

=SETFNA 

@$FFC0 

=OPEN 

@$FFC3 

=CLOSE 

@$FFD2 

=BSOUT 

@$E16F 

=BLOAD 

@$E159 

=BSAVE 

§147 

=LOADTOK 

§148 

=SAVETOK 

§149 

=VERITOK 

§153 

=PRINTTO 

§1 76 

=ORTOKEN 

@155 

=LISTTOK 

@13 

=CR 

@$C000 

=ORG 

* NEUE 

BEFEHLE HINZUFUEGEN MIT SYS12*4096 


C000: A90B LDA# $B 

C002: 8D0803 STA ;$0308 

C005: A9C0 LDA $C0 
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C007: 8D0903 STA ;$0309 

COOA: 60 RTS 

* DEKODIERER, ALLE NEUEN BEFEHLE BEGINNEN MIT 'D 


CO OB: 

207300 =DECODE 

JSR 

? CHRGET 

C00E: 

C944 

CMP# 

'D 

C01 0: 

F003 

BEQ 

+FOUND 

C012: 

4CE7A7 

JMP 

;EXECUT 

C015: 

A001 =FOUND 

LDY# 

#1 

C01 7: 

Bl 7A 

LDA@Y 

.BASICP 


* DLOAD 

7 


C019: 

C993 

CMP# 

.LOADTOK 

C01B: 

F031 

BEQ 

+DLOAD 


* DSAVE 

7 


C01D: 

C994 

CMP# 

.SAVETOK 

C01F: 

F040 

BEQ 

+DSAVE 


* DVERIFY ? 


C021 : 

C995 

CMP# 

.VERITOK 

C023: 

F026 

BEQ 

+DVERIFY 


* DPRINT? 


C025: 

C999 

CMP# 

.PRINTTO 

C027: 

F01C 

BEQ 

+DOPRINT 


* DLIST 

? 


C029: 

C99B 

CMP# 

.LISTTOK 

C02B: 

F01B 

BEQ 

+DODLIST 


* DERROR 



C02D: 

A200 

LDX# 

#0 

C02F: 

Bl7A =COMPLP 

LDA@Y 

.BASICP 

C031 : 

DD64C1 

CMPX 

.DERRTAB 

C034: 

D008 

BNE 

NDERR 

C036: 

C8 

INY 


C037: 

E8 

INX 


C038: 

E004 

CPX# 

#4 

C03A: 

90F3 

BCC 

+COMPLP 

C03C: 

B051 

BCS 

+DERROR 

C03E: 

A000 =NDERR 

LDY# 

#0 

C040: 

Bl 7A 

LDA@Y 

.BASICP 

C042: 

4CE7A7 

JMP 

?EXECUT 

C045: 

4CC5C0 =DOPRINT 

JMP 

? DPR INT 

C048: 

4CF4C0 =DODLIST 

JMP 

;DLIST 


* DVERIFY VERGLEICHT EIN PROGRAMM IM SPEICHER MIT 

* MIT EINEM DISKETTENPROGRAMM 

* DVERIFY"NAME",SA (SA IST OPTIONAL) 

C04B: A901 =DVERIFY LDA# #1 

C04D: 2C $2C 
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C04D: 
C050: 
C052: 
C055: 
C058: 
C05B: 
C05E: 


C061 : 
C064: 
C067: 
C06A: 
C06D: 
C070: 
C072: 
C075: 
C077: 
C079: 
C07C: 
C07F: 
C082: 
C085: 
C088: 
C089: 
C08A: 
C08C: 


C08F: 
C091 : 
C092: 
C094: 
C096: 
C098: 
C09A: 
C09C: 
C09E: 
COAO: 
C0A2: 
CO A4: 
C0A7: 


* DLOAD LAEDT EIN PROGRAMM VON DER DISKETTE IN DEN 

* ARBEITSSPEICHER: DLOAD"NAME",SA (SA IST OPTIONAL) 


A900 =DLOAD 

LDA# 

#0 

850A 

STA. 

.FLAG 

207300 

JSR 

;CHRGET 

207300 

JSR 

;CHRGET 

207300 

JSR 

;CHRGET 

206FE1 

JSR 

;BLOAD 

4CAEA7 

JMP 

;INTERP 


* DSAVE SPEICHERT EIN PROGRAMM AUS DEM ARBEITSSPEI- 

* CHER AUF DISKETTE: DSAVE"NAME",SA (SA OPTIONAL) 


207300 =DSAVE 

JSR 

;CHRGET 

207300 

JSR 

;CHRGET 

2070C0 

JSR 

;GETPAR 

2059E1 

JSR 

;BSAVE 

4CAEA7 

JMP 

;INTERP 

A900 =GETPAR 

LDA# 

#0 

20BDFF 

JSR 

;SETFNA 

A208 

LDX# 

#8 

A000 

LDY# 

#0 

2OBAFF 

JSR 

;SETFPA 

2006E2 

JSR 

;NEXTQ 

2057E2 

JSR 

;GETNAME 

2006E2 

JSR 

?NEXTQ 

2000E2 

JSR 

;PARGET 

8A 

TXA 


A8 

TAY 


A208 

LDX# 

#8 

4CBAFF 

JMP 

; SETFPA 


* DERROR LIEST DEN FEHLER KANAL (15) DER DISKETTE 

* UND GIBT FEHLERNUMMER, SPUR UND SEKTOR AUS 


A57A =DERROR 

LDA. 

.BASICP 

18 

CLC 


6905 

ADC# 

#5 

857A 

STA. 

.BASICP 

A57B 

LDA. 

•BASICP+1 

6900 

ADC# 

#0 

857B 

STA. 

.BASICP+1 

A900 

LDA# 

#0 

8590 

STA. 

.ST 

A908 

LDA# 

#8 

85BA 

STA. 

.DEVNUM 

20B4FF 

JSR 

;IECTALK 

A96F 

LDA# 

#111 
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C0A9: 

85B9 


STA. 

.SECADR 

CO AB: 

2096FF 


JSR 

;SENDSEC 

CO AE: 

A4 90 

=DERRLP 

LDY. 

.ST 

COBO : 

DOOA 


BNE 

+DERR4 

C0B2: 

20A5FF 


JSR 

;IECINP 

C0B5: 

20D2FF 


JSR 

;BSOUT 

C0B8: 

C90D 


CMP# 

.CR 

COBA: 

D0F2 


BNE 

+DERRLP 

COBC: 

20ABFF 

=DERR4 

JSR 

;UNTALK 

COBF: 

4CAEA7 


JMP 

;INTERP 

C0C2: 

4CF9E0 

=DERRERR 

JMP 

? GIVERR 



* DPRINT 

SENDET BEFEHLE UEBER DEN BEFEHLSKANAL 15 



* SEHEN 

SIE BITTE IM DISKETTENHANDBUCH NACH 

C0C5: 

207300 

=DPRINT 

JSR 

;CHRGET 

C0C8: 

207300 


JSR 

;CHRGET 

COCB: 

A90F 


LDA# 

#15 

COCD: 

20C3FF 


JSR 

;CLOSE 

CODO: 

20E0C0 


JSR 

? GETFPAR 

C0D3: 

20C0FF 


JSR 

;OPEN 

C0D6: 

BOEA 


BCS 

?DERRERR 

C0D8: 

A90F 


LDA# 

#15 

CODA: 

20C3FF 


JSR 

;CLOSE 

CODD: 

4CAEA7 


JMP 

;INTERP 

COEO: 

A900 

=GET FPAR 

LDA# 

#0 

C0E2: 

20BDFF 


JSR 

? SETFNA 

C0E5: 

A90F 


LDA# 

#15 

C0E7: 

A8 


TAY 


C0E8: 

A208 


LDX# 

#8 

COEA: 

20BAFF 


JSR 

;SETFPA 

COED: 

2006E2 


JSR 

? NEXTQ 

COFO: 

2057E2 


JSR 

;GETNAME 

C0F3: 

60 


RTS 




* DLIST 

GIBT DAS INHALTSVERZEICHNIS DER DISKETTE 



* AUS OHNE DEN 

SPEICHER ZU ZERSTOEREN 

C0F4: 

207300 

=DLIST 

JSR 

?CHRGET 

C0F7: 

207300 


JSR 

;CHRGET 

COFA: 

A900 


LDA# . 

#0 

COFC: 

8590 


STA. 

.ST 

COFE: 

A924 


LDA# 

'$ 

Ci 00: 

85FB 


STA. 

.TMP 

CI 02: 

A9FB 


LDA# 

#TMP 

CI 04: 

85BB 


STA. 

.FNADRES 

CI 06: 

A900 


LDA# 

#0 

CI 08: 

85BC 


STA. 

FNADRES+1 
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CI OA: 

A901 

LDA# 

#1 

C10C: 

85B7 

STA. 

.FNLENG 

CI OE: 

A908 

LDA# 

#8 

Ci 1 0: 

85BA 

STA. 

.DEVNUM 

C11 2: 

A960 

LDA# 

#96 

C11 4: 

85 B9 

STA. 

.SECADR 

C11 6: 

20D5F3 

JSR 

;SENDFNA 

C11 9: 

A5BA 

LDA. 

.DEVNUM 

CI 1B: 

20B4FF 

JSR 

;IECTALK 

C11E: 

A5B9 

LDA. 

.SECADR 

CI 20: 

2096FF 

JSR 

;SENDSEC 

CI 23: 

A4 90 

LDY. 

.ST 

Ci 25: 

D037 

BNE 

+DLIST4 

CI 27: 

A006 

LDY# 

#6 

CI 29: 

84FB =DLIST1 

STY. 

.TMP 

CI2B: 

20A5FF 

JSR 

; IECINP 

C12E: 

A6FC 

LDX. 

• TMP+1 

CI 30: 

86FC 

STA. 

.TMP+1 

CI 32: 

A4 90 

LDY. 

.ST 

CI 34: 

D028 

BNE 

+DLIST4 

CI 36: 

A4FB 

LDY. 

.TMP 

Ci 38: 

88 

DEY 


CI 39: 

D0EE 

BNE 

+DLIST1 

C13B: 

A4FC 

LDY. 

• TMP-fl 

C13D: 

20CDBD 

JSR 

;LNPRT 

CI 40: 

A920 

LDA# 

i 

CI 42: 

20D2FF 

JSR 

;BSOUT 

Ci 45: 

20A5FF =DLIST3 

JSR 

;IECINP 

CI 48: 

A690 

LDX. 

.ST 

C14A: 

D01 2 

BNE 

+DLIST4 

C14C: 

AA 

TAX 


C14D: 

F006 

BEQ 

+DLIST2 

C14F: 

20D2FF 

JSR 

;BSOUT 

CI 52: 

4C45C 

JMP 

;DLIST3 

CI 55: 

A90D =DLIST2 

LDA# 

#CR 

CI 57: 

20D2FF 

JSR 

;BSOUT 

C15A: 

A004 

LDY# 

#4 

C15C: 

D0CB 

BNE 

+DLIST1 

C15E: 

2042F6 =DLIST4 

JSR 

;CLOSEFI 

CI 61 : 

4CAEA7 

JMP 

;INTERP 


* TABELLE FUER 'FEHLER' FUER DEN DERROR-BEFEHL 
CI 64: =DERRTAB &ERR 

CI 64: 455252 

CI 67: BO .ORTOKEN 


88 



10 

Wie man Gerätetreiber 
hinzufügt 
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Wie man Gerätetreiber hinzufügt 


Die Ein-/Ausgabetreiber des C64 Betriebssystems (OS) werden über 
Vektoren angesprungen. Diese Vektoren zeigen auf Betriebssystem¬ 
programme, die die Ein-/Ausgabe bedienen. Deshalb kann der Anwen¬ 
der diese Vektoren ändern und sie auf seine eigenen Programme 
zeigen lassen. 

Zuerst sollten Sie überprüfen, ob Ihr definiertes Gerät angespro¬ 
chen ist. Ist das der Fall, arbeiten Sie mit Ihrem eigenen Gerä¬ 
tetreiber, sonst springen Sie in den Treiber des Betriebssystems 
(OS). Das nächste Kapitel beschreibt einen Treiber für eine 
Centronics-Schnittsteile. 

Nachfolgend eine Beschreibung der für die Ein-/Ausgabe verwende¬ 
ten Vektoren: 

031A - 031B OPEN Vektor 

zeigt auf das Unterprogramm, das das Gerät 
aus Speicherstelle $BA öffnet und initiali¬ 
siert. 

031C - 031D CLOSE Vektor 

Schließt die Datei (Nummer im Akku) und das 
zu ihr gehörende Gerät. 

031E - 031F CHKIN Vektor 

Speichert die zur Dateinummer gehörende 
Gerätenummer aus dem X-Register auf Spei¬ 
cherstelle $99 ab. 

0320 -0321 CKOUT Vektor 

Wie CHKIN, die Gerätenummer wird jedoch auf 
Speieherstelle $9A (Aktuelles Ausgabegerät) 
abgelegt. 

0322 - 0323 CLRCH Vektor 

Setzt die Standard-Ein-/Ausgabegeräte und 
setzt die aktuellen Geräte zurück. 
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0324 - 0325 INPUT Vektor 

Holt Zeichen vom Gerät, das in Speicher¬ 
stelle $99 angegeben ist. Das Zeichen muß 
im Akku stehen, kein anderes Register darf 
verändert werden. 

0326 - 0327 OUTPUT Vektor 

Gibt ein Zeichen (im Akku) an das Gerät 
aus, das an Speicherstelle $9A steht. Kein 
anderes Register darf verändert werden. 

032A - 032B GET Vektor 

Holt ein Zeichen vom Eingabegerät, das in 
Speicherstelle $99 steht. Sind keine Daten 
vorhanden, wird Null zurückgegeben. Der 
Akku enthält das Zeichen, die anderen Regi¬ 
ster dürfen nicht verändert werden. 

032C - 032D CLALL Vektor 

Schließt alle Dateien. Danach wird CLRCH 
durchlaufen. 

0330 - 0331 LOAD Vektor 

Lädt oder verifiziert ein Programm. (Siehe 
auch Kapitel 4) 

0332 - 0333 SAVE Vektor 

Siehe Kapitel 4. 

Möglicherweise werden bei Ihrer Anwendung nicht alle Vektoren ge¬ 
braucht. Sehen Sie sich das im nächsten Kapitel vorgestellte Bei¬ 
spielprogramm an, wenn Sie Ihre eigenen Unterprogramme einbinden 
wollen. 

Verlassen Sie alle Unterprogramme mit rückgesetzten Carry-Bit, 
wenn kein Fehler auftritt. 
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Eine preiswerte Centronics-Schnittstelle 


Eine preiswerte Centronics-Schnittstelle 


Das folgende Programm ermöglicht Ihnen den Anschluß eines Druk- 
kers mit einer Centronics-Schnittstelle über das User Port des 
C64. 

Das Programm schaltet die RS232-Schnittstelle ab und installiert 
eine Centronics-Schnittstelle als Gerät 2. Die Schnittstelle 
überträgt 7 Bit ASCII. Bit 7 ist immer 0. Sie können die normalen 
Ein-/Ausgabebefehle benutzen. Eine Sekundäradresse, die nicht 
Null ist, schaltet den Zeilenvorschub-Modus ein. Das heißt, daß 
nach jedem Wagenrücklauf (= CR) ein zusätzlicher Zeilenvorschub 
(= LF) gesendet wird. 

Die folgenden Leitungen müssen verbunden werden: 


User Port 

zum 

Drucker 

Beschreibung 

L 


1 

STROBE 

C 


2 

DATA1 

D 


3 

DATA2 

E 


4 

DATA3 

F 


5 

DATA4 

H 


6 

DATA5 

J 


7 

DATA6 

K 


8 

DATA7 

N 


9 

DATA8 

M 


11 

BUSY 

N 


19 

MASSE 


Wie Sie sehen, brauchen Sie lediglich zwei Steckverbinder. Für 
das User Port benötigen Sie einen TRW CINCH 251-12-50-170/50- 
24sn-98124 Steckverbinder. Welchen Steckverbinder Sie für den 
Drucker brauchen, müssen Sie dem Druckerhandbuch entnehmen. 

Sie aktivieren die Centronics-Schnittstelle mit SYS12*4096. 
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C000: 
C002: 
C005: 
C008: 
C009: 
COOB: 

COOC: 

COOE: 

C010: 

C012: 

C014: 

C016: 

C018: 

C01A: 

C01C: 

C01E: 

C020: 

C022: 

C024: 
C027: 
C02A: 

C02C: 



* 

CENTRONICSSCHNITTSTELLE 


* 

UEBER USER PORT 


★ 

SYS12*4096 


@$031A 

=IOVECT 


@$DD00 

=CIA2 


@$DD00 

=PORTA 


@ $DD01 

=PORTB 


@ $DDO 2 

=DDRA 


@ $DDO 3 

=DDRB 


@$F333 

=CLRCH 


@ $F6ED 

=STOPQ 


@$F32F 

=CLALL 


@13 

=CR 


@10 

=LF 


@19 

=TABLEN 


@$C000 

=ORG 


* SETZEN 

VON EIGENEN VEKTOREN 

A213 

=INSTALL 

LDX# .TABLEN 

BDOCCO 

=INSTLP 

LDAX .HANDTAB 

9D1A03 


STAX .IOVECT 

CA 


DEX 

1 0F7 


BPL +INSTLOOP 

60 


RTS 


* VEKTORTABELLE 

20C0 

=HANDTAB 

;OPEN 

6BC0 


;CLOSE 

86C0 


;CHKIN 

9DC0 


;CKOUT 

33F3 


;CLRCH 

B5C0 


?BASIN 

Ci CO 


? BSOUT 

EDF6 


? STOPQ 

FCCO 


;GET 

2FF3 


;CLALL 


* DIE OP EN-ROUTINE 

A6B8 

=OPEN 

LDX. $B8 

D003 


BNE +NOTZER 


* KEINE 

EINGABEDATEI 

4C0AF7 


JMP ;$F70A 

200FF3 

=NOTZER 

JSR ;$F30F 

D003 


BNE +NOTFOUN 


* 'FILE 

OPEN’-FEHLER 

4CFEF6 


JMP ;$F6FE 






Eine preiswerte Centronics-Schnittstelle 

C02F: 

A698 

=NOTFOUN LDX. 

$98 

CO 31 : 

EOOA 

CPX# 

#10 

C033: 

9003 

BCC 

+NOTFULL 



* #FILES > 10 

—> FEHLERAUSGABE: 'TOO MANY FILES' 

CO 35: 

4CFBF6 

JMP 

;$F6FB 

C038: 

E698 

=NOTFULL INC. 

$98 



* DATEINUMMER 


C03A: 

A5B8 

LDA. 

$B8 

C03C: 

9D5902 

STAX 

; $259 



* SEKUNDAER-ADRESSE 

C03F: 

A5B9 

LDA. 

$B9 

C041 : 

8D09C1 

STA 

;LFFLG 

C044: 

0960 

ORA# 

#$60 

C046: 

85B9 

STA. 

$B9 

CO 48: 

9D6D02 

STAX 

; $26D 



* GERAETENUMMER 

C04B: 

A5BA 

LDA. 

$BA 

C04D: 

9D6302 

STAX 

; $263 



* GERAET 2 ? 


C050: 

C902 

CMP# 

#2 

C052: 

F003 

BEQ 

+CTRXOPN 



* NEIN, SPRINGE INS OS 

C054: 

4C72F3 

JMP 

;$F372 



* CIA FUER PARALLELBETRIEB VORBEREITEN 

C057: 

A9FF 

=CTRXOPN LDA# 

$FF 

C059: 

8D03DD 

STA 

; DDRB 

C05C: 

AD02DD 

LDA 

; DDRA 

C05F: 

29FB 

AND# 

$FB 

CO 61 : 

8D02DD 

STA 

? DDRA 

C064: 

A980 

LDA# 

$80 

C066: 

8D01DD 

STA 

;PORTB 

C069: 

18 

CLC 


C06A: 

60 

RTS 




* CLOSE 


C06B: 

201 4F3 

=CLOSE JSR 

;$F314 

C06E: 

F002 

BEQ 

+FOUND 



* WIRD KEINE DATEI GEFUNDEN —> RUECKKEHR 

C070: 

18 

CLC 


C071 : 

60 

RTS 




* GEFUNDEN, - 

-> PARAMETER SETZEN 

C072: 

201FF3 

=FOUND JSR 

;$F31F 

C075: 

8A 

TXA 


C076: 

48 

PHA 


C077: 

A5BA 

LDA. 

$BA 
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* GERAET 2 ? 


C079: 

C902 

CMP# 

#2 

C07B: 

F003 

BEQ 

+CTRXCLO 



* SPRINGE INS 

OS 

C07D: 

4C9DF2 

JMP 

;$F29D 



* CLOSE (EIGENE ROUTINE) 

C080: 

68 

=CTRXCLO PLA 


C081 : 

20F2F2 

JSR 

;$F2F2 



* RUECKKEHR 


CO 84: 

18 

CLC 


CO 85: 

60 

RTS 


C086: 

200FF3 

=CHKIN JSR 

;$F30F 

C089: 

F003 

BEQ 

+FOUND2 



* FEHLER: FILE 

NOT OPEN 

C08B: 

4C01F7 

JMP 

;$F701 

C08E: 

201FF3 

=FOUND2 JSR 

;$F31F 

C091 : 

A5BA 

LDA. 

$BA 

C093: 

C902 

CMP# 

#2 

C095: 

F003 

BEQ 

;CTRXCKI 

C097: 

4C19F2 

JMP 

; $F21 9 

C09A: 

4C0AF7 

=CTRXCKI JMP 

;$F70A 

C09D: 

200FF3 

=CKOUT JSR 

;$F30F 

COAO: 

F003 

BEQ 

+FOUND3 



* FEHLER: DATEI NICHT GEFUNDEN 

C0A2: 

4C01F7 

JMP 

;$F701 

C0A5: 

201FF3 

=FOUND3 JSR 

;$F31F 

C0A8: 

A5BA 

LDA. 

$BA 



* GERAET 2 ? 


COAA: 

C902 

CMP# 

#2 

COAC: 

F003 

BEQ 

+CTRXCKO 



* NEIN, INS OS 


CO AE: 

4C5BF2 

JMP 

;$F25B 



* JA, DANN AUSGABEDATEI SETZEN 

C0B1 : 

859A 

=CTRXCKO STA. 

$9A 

C0B3: 

18 

CLC 


C0B4: 

60 

RTS 


C0B5: 

A599 

=BASIN LDA. 

$99 

C0B7: 

C902 

CMP# 

#2 

C0B9: 

F003 

BEQ 

+CTRXBSI 

COBB: 

4C57F1 

JMP 

;$Fl57 


* IST EINGABEGERAET 2 —> 'NOT INPUT FILE' 
COBE: 4C0AF7 =CTRXBSI JMP ;$F70A 

C0C1: 48 =BSOUT PHA 

C0C2: A59A LDA. $9A 
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C0C4: 

C902 

CMP# 

#2 


C0C6: 

F004 

BEQ 

+CTRXBSO 


C0C8: 

68 

PLA 



C0C9: 

4CCAF1 

JMP 

;$F1CA 




* CENTRONIX AUSGABE 


COCC: 

8E08C1 

=CTRXBSO STX 

;XSAVE 


COCF: 

68 

PLA 



CODO: 

20E8C0 

JSR 

;PAROUT 


C0D3: 

C90D 

CMP# 

#CR 


C0D5: 

DOOC 

BNE 

+NOLF 




* IST SEKUNDAERADRESSE > 0, ZUSAETZLICH ZEILENVOR- 



* SCHUB (LF) AUSGEBEN 


C0D7: 

AE09C1 

LDX 

;LFFLG 


CODA: 

F007 

BEQ 

+NOLF 


CODC: 

A90A 

LDA# 

.LF 


CODE: 

20E8C0 

JSR 

? PAROUT 


C0E1 : 

A90D 

LDA# 

.CR 


C0E3: 

AE08C1 

=NOLF LDX 

;XSAVE 


C0E6: 

18 

CLC 



C0E7: 

60 

RTS 





* PARALLELAUSGABE 


C0E8: 

48 

=PAROUT PHA 





* WARTEN, BIS 

DER DRUCKER BEREIT 

IST 

C0E9: 

ADOODD 

=WAIT LDA 

;PORTA 


COEC: 

2904 

AND# 

#4 


COEE: 

D0F9 

BNE 

+WAIT 


COFO: 

68 

PLA 





* STROBE (BIT7) SETZEN 




* AUSGABE DER 

DATEN (BITO-6) AUF 

DEN BUS 

C0F1 : 

0980 

ORA# 

$80 


C0F3: 

8D01 DD 

STA 

;PORTB 




* STROBE RUECKSETZEN BIS ZUM NAECHSTEN ZU 



* SENDENDEN BYTE 


C0F6: 

297F 

AND# 

$7F 


C0F8: 

8D01DD 

STA 

;PORTB 


COFB: 

60 

RTS 



COFC: 

A599 

=GET LDA. 

$99 


COFE: 

C902 

CMD# 

#2 


CI 00: 

F003 

BEQ 

+CTRXGET 


CI 02: 

4C3EF1 

JMP 

;$F13E 




* FEHLERAUSGABE 'NOT INPUT FILE' 


CI 05: 

4C0AF7 

=CTRXGET JMP 

;$F70A 




* TEMPORAERES 

XSAVE 


CI 08: 

00 

=XSAVE 

#0 
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CI 09: 00 
ASSEMBLIERUNG 


ABLEGEN DER SEKUNDAERADRESSE FUER ZUSAETZ- 
’ LICHEN ZEILENVORSCHUB 
=LFFLG #0 

BENDET 


100 
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Formatierter Ausdruck 


Das nächste Programm hilft Ihnen, Ihr Programm innerhalb defi¬ 
nierter Randmarkierungen auszudrucken. Keine Zeile geht über eine 
vordefinierte Zeichenlänge hinaus. 

Das Programm ändert den Ausgabevektor ($0326-$0327). Mit 
SYS12*4096 zeigt der Vektor auf Ihr eigenes Unterprogramm. Der 
eingestellte Wert für den rechten Rand ist 40,, aber Sie können 
den Wert jederzeit ändern (0-255). Ihr Programmausdruck wird 
übersichtlicher, aber länger, da zusätzliche CR-LF's eingefügt 
werden, wenn eine Zeile die maximale Länge überschreitet. 


* FORMATIERTER AUSDRUCK * 

@$0326 =OUTVEC 

@ 1 3 =CR 

@$C000 =ORG 

* SETZT EINEN NEUEN AUSGABEVEKTOR; 

* DER ALTE WIRD IN OLDOUT ZWISCHENGESPEICHERT 

* AUFRUF MIT: SYS12*4096 


C000: 

AD2603 

=INSTALL LDA 

;OUTVEC 

C003: 

8D4CC0 

STA 

?OLDOUT 

C006: 

AD2703 

LDA 

;OUTVEC+1 

C009: 

8D4DC0 

STA 

;OLDOUT+1 

C00C: 

A930 

LDA# 

.NEWOUTL 

C00E: 

8D2603 

STA 

;OUTVEC 

C011 : 

A9C0 

LDA# 

.NEWOUTH 

C013: 

8D2703 

STA 

;OUTVEC+1 


* DIE NEUE AUSGABEROUTINE 
@$C0 =NEWOUTH 

@$30 =NEWOUTL 

@$C030 =NEWOUT 


C030: 

C90D 

CMP# 

.CR 

C032: 

F008 

BEQ 

+DOCR 

C034: 

CE4EC0 

DEC 

;COUNT 

C037: 

D00B 

BNE 

+NADDCR 

C039: 

2048C0 

JSR 

;BSOUT2 

C03C: 

AD4BC0 =DOCR 

LDA 

;CPERL 

C03F: 

8D4EC0 

STA 

;COUNT 
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C042: 

A90D 

LDA# 

.CR 

C044: 

2048C0 =NADDCR 

JSR 

? BSOUT2 

C047: 

60 

RTS 



* ALTE . 

AUSGABE 


C048: 

6C4CC0 =BSOUT2 

JMP@ 

; OLDOUT 


* SPEICHERSTELLE, DIE DIE RECHTE RANDPOSITION 

* ENTHAELT (49227) 


C04B: 

28 

=CPERL 

#40 

C04C: 

0000 

=OLDOUT 

;0 

C04E: 

00 

=COUNT 

#0 


ASSEMBLIERUNG BEENDET 
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Ausgabe des Bildinhalts auf einen Drucker 


Das nächste Programm erstellt einen Ausdruck des Bildschirmin¬ 
halts (Hardcopy). Es kann direkt in BASIC mit SYS12*4096 ange¬ 
sprungen werden. Der Drucker muß der Gerätenummer 4 zugeordnet 
sein. Alle grafischen Zeichen werden ausgedruckt, da das Programm 
den Bildschirm-Code in ASCII-Zeichen umwandelt. Invers darge¬ 
stellte Zeichen werden normal dargestellt. 

Es könnte eine interessante Übung für Sie sein, das Programm zu 
erweitern und auch invers dargestellte Zeichen auszudrucken. 


★ 

AUSDRUCK DES BILDSCHIRM¬ 

* 

* 

INHALTS 

★ 

* 

SYS12*4096 

* 

@$FC 

=TEMP 


@$FD 

=PT 


@0 

=SCREENL 


@4 

=SCREENH 


@$FFBA 

=SETFPA 


@$FFBD 

=SETFNA 


@$FFC0 

=OPEN 


@$FFC3 

=CLOSE 


@$FFC9 

=C KOUT 


@$FFCC 

=CLRCH 


@$FFD2 

=BSOUT 


@$FFE1 

=STOPQ 


§40 

=COLUMN 


@25 

=ROW 


@13 

=CR 


§C000 

=ORG 



* DATEI-, GERAETENUMMER UND SEKUNDAERADRESSE SETZEN 


C000: 

A97F 

LDA# 

#127 

C002: 

A204 

LDX# 

#4 

C004: 

A000 

LDY# 

#0 

C006: 

2OBAFF 

JSR 

;SETFPA 


* 

KEIN DATEINAME 

C0 09: 

A900 

LDA# 

#0 

C00B: 

20BDFF 

JSR 

;SETFNA 
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* DATEI EROEFFNEN 

C00E: 

20C0FF 

JSR 

;OPEN 

C011 : 

B04A 

BCS 

+QUIT 



* BILDSCHIRMANFANG 

C01 3: 

A900 

LDA# 

.SCREENL 

C01 5: 

85FD 

STA. 

.PT 

C017: 

A904 

LDA# 

.SCREENH 

C01 9: 

85FE 

STA. 

• PT+1 



* GERAETEAUSGABEADRESSE 

C01B: 

A27F 

LDX# 

#127 

C01D: 

20C9FF 

JSR 

; CKOUT 



* ANZAHL DER ZEILEN 

C020: 

A21 9 

LDX# 

.ROW 



* SCHLEIFE FUER DEN AUSDRUCK 

C022: 

A90D 

=ROWLOOP LDA# 

.CR 

C024: 

20D2FF 

JSR 

;BSOUT 

CO 27: 

20E1FF 

JSR 

;STOPQ 

C02A: 

F031 

BEQ 

+QUIT 

C02C: 

A000 

LDY# 

#0 

C02E: 

Bl FD 

=COLLOOP LDA@Y 

.PT 



* UMWANDELN IN 

BILDSCHIRMCODE 

CO 30: 

85FC 

STA. 

.TEMP 

C032: 

293F 

AND# 

$3F 

C034: 

06FC 

ASL. 

.TEMP 

C036: 

24FC 

BIT. 

.TEMP 

C038: 

1002 

BPL 

+NOOR 

C03A: 

0980 

ORA# 

$80 

C03C: 

7002 

=NOOR BVS 

+NOADDOR 

C03E: 

0940 

ORA# 

$40 

C040: 

20D2FF 

=NOADDOR JSR 

+BSOUT 

C043: 

C8 

INY 


C044: 

C028 

CPY# 

•COLUMN 

C046: 

D0E6 

BNE 

+COLLOOP 

C048: 

98 

TYA 


C049: 

18 

CLC 


C04A: 

65FD 

ADC. 

.PT 

C04C: 

85FD 

STA. 

.PT 

C04E: 

9002 

BCC 

+NOOR1 

C050: 

E6FE 

INC. 

.PT+1 

C052: 

CA 

=NOOR1 DEX 


C053: 

DOCD 

BNE 

+ROWLOOP 



* ALLE ZEILEN . 

ABGEARBEITET? 

CO 55: 

A90D 

LDA# 

.CR 

C057: 

20D2FF 

JSR 

;BSOUT 
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C05A: 20CCFF JSR ;CLRCH 

C05D: A97F =QUIT LDA# #127 

C05F: 4CC3FF JMP ;CLOSE 

ASSEMBLIERUNG BEENDET 


Bildschirmausdruck über die RS232-Schnittstelle 


Für den Ausdruck des Bildschirminhalts auf einem Drucker mit 
RS232-Schnittstelle kann das nachstehende Programm benutzt wer¬ 
den. Es gleicht dem vorangegangenen, bis auf einige kleine De¬ 
tails: Die Grafikzeichen können nicht ausgedruckt werden, da der 
Drucker sie nicht darstellen kann. 

Im Programm wurde die RS232-Schnittsteile folgendermaßen initia¬ 
lisiert: 


300 Baud 
8 Datenbits 
2 Stopbits 

3 Handshake-Leitungen 
Half Duplex 
Keine Parität 

Es steht Ihnen frei, sie den Anforderungen Ihres Druckers anzu¬ 
passen. 


* 

AUSDRUCK DES BILDSCHIRM¬ 

* 

* 

INHALTS UEBER RS232 

* 

* 

SYS12*4096 

* 

@$FC 

=TEM 


§$FD 

=PT 


@0 

=SCREENL 


@4 

=SCREENH 


@$FFBA 

=SETFPA 


@$FFBD 

=SETFNA 


@ $FFC0 

=OPEN 
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COOO: 
C002: 
C004: 
C006: 

C009: 
CO OB: 
COOD: 
COOF: 

C012: 

C015: 

C017: 

C019: 

C01B: 

C01D: 

C01F: 

C022: 
C024: 
C026: 
C029: 
C02B: 
C02E: 
C031 : 
C033: 
C035: 
C037: 


@$FFC3 

@$FFC9 

@$FFCC 

@$FFD2 

@$FFE1 

@40 

@25 

@13 

@10 


=CLOSE 

=CKOUT 

=CLRCH 

=BSOUT 

=STOPQ 

=COLUMN 

=ROW 

=CR 

=LF 


* PARAMETER FUER RS232 

@$86 =CONTROL 

@$10 =COMMAND 

@$C000 =ORG 

* DATEI-, GERAETENUMMER UND SEKUNDAERADRESSE SETZEN 


(2BYTE) SETZEN 


A97F 


LDA# 

#127 

A202 


LDX# 

#2 

A000 


LDY# 

#0 

20BAFF 


JSR 

;SETFPA 


* DATEINAME UND LAENGE 

A902 


LDA# 

#2 

A200 


LDX# 

.FNAMEL 

A0C1 


LDY# 

.FNAMEH 

20BDFF 


JSR 

;SETFPA 


* DATEI 

EROEFFNEN 

20C0FF 


JSR 

; OPEN 


* BILDSCHIRMANFANG 

A900 


LDA# 

•SCREENL 

85FD 


STA. 

.PT 

A904 


LDA# 

.SCREENH 

85FE 


STA. 

. PT+1 


* GERAETEAUSGABEADRESSE 

A27F 


LDX# 

#127 

20C9FF 


JSR 

; CKOUT 


* DRUCKSCHLEIFE 

A219 


LDX# 

.ROW 

A90D 

ll 

P 

O 

O 

LDA# 

.CR 

20D2FF 


JSR 

;BSOUT 

A90A 


LDA# 

.LF 

20D2FF 


JSR 

;BSOUT 

20E1FF 


JSR 

;STOPQ 

F036 


BEQ 

+QUIT 

A000 


LDY# 

#0 

Bl FD 

=COLLOOP 

LDA@Y 

.PT 

85FC 


STA. 

.TEMP 
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C039: 

293F 

AND# 

$3F 

C03B: 

06FC 

ASL. 

.TEMP 

C03D: 

24FC 

BIT. 

.TEMP 

C03F: 

1002 

BPL 

+NOOR 

C041 : 

0980 

ORA# 

$80 

C0 43: 

7002 

=NOOR BVS 

+NOADDOR 

C045: 

0940 

ORA# 

$40 

C047: 

20D2FF 

=NOADDOR JSR 

;BSOUT 

C04A: 

C8 

INY 


C04B: 

C028 

CPY# 

.COLUMN 

C04D: 

D0E6 

BNE 

+COLLOOP 

C04F: 

98 

TYA 


C050: 

18 

CLC 


C051 : 

65FD 

ADC. 

.PT 

C053: 

85FD 

STA. 

.PT 

C055: 

9002 

BCC 

+NOOR1 

C057: 

E6FE 

INC. 

• PT+1 

C059: 

CA 

=NOORl DEX 


C05A: 

D0C8 

BNE 

+ROWLOOP 



* ALLE ZEILEN 

ABGEARBEITET? 

C05C: 

A90D 

LDA# 

.CR 

C05E: 

20D2FF 

JSR 

;BSOUT 

C061 : 

A90A 

LDA# 

.LF 

C063: 

20D2FF 

JSR 

;BSOUT 

C066: 

20CCFF 

JSR 

;CLRCH 

C069: 

A97F 

=QUIT LDA# 

#127 

C06B: 

4CC3FF 

JMP 

;CLOSE 


* KONTROL- UND BEFEHLSBYTE 
@$C1 =FNAMEH 

@$0 =FNAMEL 

@$C100 =FNAME 

Ci 00: 86 .CONTROL 

CI 01: 10 .COMMAND 

ASSEMBLIERUNG BEENDET 
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Terminal 


Dieses Programm vernlaßt Ihren Commodore 64, ein Terminal zu 
simulieren. Die Parameter werden dabei mittels Menütechnik ge¬ 
setzt. Diese Technik erspart dem Anwender das Lesen von langen 
Anleitungen. Ein Menü besteht aus drei unterschiedlichen Teilen: 

1. Aufzählen der Wahlmöglichkeiten. 

2. Wahl und Überprüfung auf Richtigkeit. 

3. Ausführen des gewählten Programmteils. 

Zuerst erscheint ein Übersichts-Menü. Sie wählen dann und das 
Programm beginnt mit der entsprechenden Abarbeitung. Sie können 
Menüs und Untermenüs erstellen. Sie müssen nur den Pfad wählen. 

Im folgenden Programm geben Sie in Menütechnik die Parameter ein, 
die zum Initialisieren des Terminals notwendig sind. Haben Sie 
alle gewünschten Daten eingegeben, beginnt das Programm, als 
Terminal zu arbeiten. Sie können Ihren C64 über ein Modem oder 
direkt mit einen anderem Rechner verbinden. Für den Anschluß an 
ein Modem 300 von Hayes, das im Half-Duplex-Modus betrieben wird, 
sind folgende Parameter zu setzen: 

300 Baud 
7 Bits 
1 Stopbit 

3 Handshake-Leitungen 
Half-Duplex 
Gerade Parität 

Sie können nun die Nummer des Rechners, den Sie angeschlossen 
haben, anwählen. Als Übung können Sie ein Unterprogramm schrei¬ 
ben, das Daten von und zum Rechner schickt. Verwenden Sie dabei 
die Funktionstasten. 

In BASIC starten Sie das Terminalprogramm mit SYS12*4096. Sie 
können nach BASIC zurückkehren, wenn Sie gleichzeitig die Tasten 
RUN/STOP und RESTORE drücken. 
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* TERMINAL 

* SYS12*4096 


@$90 
@$8E 
@$0291 
@$D018 
@$E71 6 
@$Fl 42 
@$FFBA 
@$FFBD 
@$FFC0 
@$FFC3 
@$FFC9 
@$FFCC 
@$FFD2 
@$FFE4 
@$FFE7 
@08 
@10 
@13 
@20 
@147 
@175 
@157 
@$C000 


=ST 

=AUX 

=SHFTCOM 

=CHARGEN 

=SCRNOUT 

=FROMKBD 

=SETFPA 

=SETFNA 

=OPEN 

=CLOSE 

=CKOUT 

=CLRCH 

=BSOUT 

=GET 

=CLALL 

=BS 

=LF 

=CR 

=DEL 

=CLS 

=CURS 

=BACKS 

=ORG 


C000: 

A900 

LDA# 

#0 

C002: 

8D80C3 

STA 

;CONTROL 

C005: 

8D81C3 

STA 

;COMMAND 



* BAUDRATE 


C008: 

20BFC2 

JSR 

;CLRSCRN 

C00B: 

20C4C2 

JSR 

;PRINT 

COOE: 



&0. 50 

CO OE: 

302E20 



C011: 

353020 



C014: 

202020 



C01 7: 

424155 



C01A: 

44 



C01B: 

OD 


.CR 

C01C: 



&1. 75 

C01C: 

312E20 



C01F: 

373520 



C022: 

202020 



C025: 

424155 




BAUD 


BAUD 


* 

* 
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C028: 

44 




C029: 

OD 

.CR 



C02A: 


&2. 

110 

BAUD 

C02A: 

322E20 




C02D: 

313130 




C030: 

202020 




C033: 

424155 




C036: 

44 




C037: 

OD 

.CR 



C038: 


&3. 

134.5 

BAUD 

CO 38: 

332E20 




C03B: 

313334 




C03E: 

2E3520 




C041 : 

424155 




C044: 

44 




C045: 

OD 

.CR 



C046: 


&4. 

150 

BAUD 

CO 46: 

342E20 




C049: 

313530 




C04C: 

202020 




C04F: 

424155 




C052: 

44 




C053: 

OD 

.CR 



C054: 


&5. 

300 

BAUD 

CO 54: 

352E20 




C057: 

333030 




C05A: 

202020 




C05D: 

424155 




C060: 

44 




C061 : 

OD 

.CR 



C062: 


&6. 

600 

BAUD 

C062: 

362E20 




C065: 

363030 




C068: 

202020 




C06B: 

424155 




C06E: 

44 




C06F: 

OD 

.CR 



C070: 


&7. 

1200 

BAUD 

C070: 

372E20 




C073: 

313230 




C076: 

302020 




C079: 

424155 




C07C: 

44 




C07D: 

OD 

.CR 
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C07E: 

C07E: 382E20 
C081: 313830 
C084: 302020 
C087: 424155 
C08A: 44 
C08B: 0D 
C08C: 

C08C: 392E20 
C08F: 323430 
C092: 302020 
C095: 424155 
C098: 44 
C099: 8D 
C09A: 20E6C2 
C09D: A8 
C09E: AD80C3 
C0A1: 19F6C2 
COA4: 8D80C3 

C0A7: 20BFC2 
COAA: 20C4C2 
CO AD: 

COAD: 302E20 
COBO: 382044 
C0B3: 415445 
C0B6: 4E4249 
C0B9: 54 
COBA: OD 
COBB: 

COBB: 312E20 
COBE: 372044 
C0C1: 415445 
CÖC4: 4E4249 
C0C7: 54 
C0C8: OD 
C0C9: 

C0C9: 322E20 
COCC: 362044 
COCF: 415445 
C0D2: 4E4249 
C0D5: 54 
C0D6: OD 
C0D7: 


JSR 

TAY 

LDA 

ORAY 

STA 

DATENBITS 

JSR 

JSR 


&8. 1800 BAUD 


.CR 

&9. 2400 BAUD 


.CR+128 

;NINPUT 

;CONTROL 
;BAUDTAB 
;CONTROL 

;CLRSCRN 
;PRINT 

&0. 8 DATENBIT 


• CR 

&1. 7 DATENBIT 


.CR 

&2. 6 DATENBIT 


.CR 

&3. 5 DATENBIT 
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C0D7: 

332E20 



CODA: 

352044 



CODD: 

415445 



COEO: 

4E4249 



C0E3: 

54 



COE4: 

8D 


.CR+128 

C0E5: 

20E6C2 

=GETDAT JSR 

;NINPUT 

C0E8: 

C904 

CMP# 

#4 

COEA: 

B0F9 

BCS 

+GETDAT 

COEC: 

A8 

TAY 


COED: 

AD80C3 

LDA 

? CONTROL 

COFO: 

1900C3 

ORAY 

;BITTAB 

C0F3: 

8D80C3 

STA 

?CONTROL 



* STOPBITS 


COF6: 

20BFC2 

JSR 

;CLRSCRN 

C0F9: 

20C4C2 

JSR 

?PRINT 

COFC: 



&0. 1 STOPBIT 

COFC: 

302E20 



COFF: 

312053 



CI 02: 

544F50 



CI 05: 

424954 



CI 08: 

OD 


.CR 

CI 09: 



&1. 2 STOPBITS 

CI 09: 

312E20 



C10C: 

322053 



C10F: 

544F50 



C11 2: 

424954 



C115: 

53 



C116: 

8D 


.CR+128 

C117: 

20E6C2 

=GETSTOP JSR 

;NINPUT 

C11A: 

C902 

CMP# 

#2 

CI IC: 

B0F9 

BCS 

+GETSTOP 

CI IE: 

A8 

TAY 


CI 1F: 

AD80C3 

LDA 

;CONTROL 

CI 22: 

1904C3 

ORAY 

;STOPTAB 

CI 25: 

8D80C3 

STA 

;CONTROL 



* HANDSHAKE-MODUS 

C128: 

20BFC2 

JSR 

;CLRSCRN 

C12B: 

20C4C2 

JSR 

;PRINT 

C12E: 



&0. 0-3 LINE HANDSHAKE 

C12E: 

302E20 



CI 31: 

302D33 



Ci 34: 

204C49 



CI 37: 

4E4520 
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CI 3A: 

48414E 


C13D: 

445348 


CI 40: 

414B45 


CI 43: 

0D 


CI 44: 
CI 44: 

312E20 


Ci 47: 

202058 


Ci 4A: 

204C49 


C14D: 

4E4520 


CI 50: 

48414E 


CI 53: 

445348 


CI 56: 

414B45 


CI 59: 

8D 


CI 5A: 

20E6C2 =GETHAND 

JSR 

C15D: 

C902 

CMP# 

C15F: 

B0F9 

BCS 

Ci 61 : 

A8 

TAY 

CI 62: 

AD81C3 

LDA 

Ci 65: 

1906C3 

ORAY 

CI 68: 

8D81C3 

STA 

C16B: 

* DUPLEX 

20BFC2 

JSR 

C16E: 

20C4C2 

JSR 

CI 71 : 
CI 71 : 

302E20 


CI 74: 

48414C 


CI 77: 

462044 


C17A: 

55504C 


CI 7D: 

4558 


C17F: 

0D 


CI 80: 
CI 80: 

312E20 


CI 83: 

46554C 


CI 86: 

4C2044 


CI 89: 

55504C 


C18C: 

4558 


C18E: 

8D 


C18F: 

20E6C2 =GETDUPL 

JSR 

CI 92: 

C902 

CMP# 

CI 94: 

B0F9 

BCS 

CI 96: 

A8 

TAY 

CI 97: 

AD81C3 

LDA 

C19A: 

1908C3 

ORAY 

C19D: 

8D81C3 

STA 


.CR 

&1. X LINE HANDSHAKE 


•CR+128 
? NINPUT 
#2 

+GETHAND 

;COMMAND 
;HANDTAB 
;COMMAND 

;CLRSCRN 
?PRINT 

&0. HALF DUPLEX 


.CR 

&1. FULL DUPLEX 


.CR+128 
;NINPUT 
#2 

+GETDUPL 

;COMMAND 
? DUPLTAB 
?COMMAND 
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CIAO: 
Ci A3: 
C1A6: 
C1A6: 
C1A9: 
C1AC: 
C1AF: 
CI B2: 
C1B5: 
C1B7: 
C1B8: 
C1B8: 
C1BB: 
CI BE: 
CI CI : 
C1C4: 
C1C6: 
C1C7: 
C1C7: 
C1CA: 
C1CD: 
CI DO: 
C1D3: 
C1D5: 
C1D6: 
C1D6: 
CI D9: 
C1DC: 
Ci DF: 
C1E2: 
C1E5: 
C1E8: 
C1E9: 
C1EA: 
C1EA: 
CI ED: 
C1FO: 
C1F3: 
C1F6: 
C1F9: 
CI FC: 
CI FE: 


* PARITAETSMODUS 
20BFC2 JSR ;CLRSCRN 


20C4C2 JSR 

302E20 

4B4549 

4E4520 

504152 

495441 

4554 

0D 

312E20 

504152 

2E2055 

4E4745 

532E 

OD 

322E20 

504152 

2E2047 

455241 

44445 

OD 

332E20 

4D4152 

4B2055 

454245 

525452 

41474E 

47 

OD 

342E20 

535041 

434520 

554542 

455254 

524147 

4E47 

8D 


;PRINT 

&0. KEINE PARITAET 


.CR 

&1. PAR. UNGER. 


.CR 

&2. PAR. GERADE 


.CR 

&3. MARK UEBERTRAGNG 


.CR 

&4. SPACE UEBERTRAGNG 


.CR+128 
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C1FF: 

20E6C2 

=GETPARI JSR 

;NINPUT 

C202 : 

C905 


CMP# 

#5 

C204: 

B0F9 


BCS 

+GETPARI 

C206: 

A8 


TAY 


C207: 

AD81C3 


LDA 

;COMMAND 

C20A: 

190AC3 


ORAY 

;PARTAB 

C20D: 

8D81C3 


STA 

;COMMAND 



* 

KLEINBUCHSTABEN WERDEN UNTERDRUECKT <SHFT> - 

C21 0: 

A91 7 


LDA# 

#23 

C21 2: 

8D18D0 


STA 

;CHARGEN 

C215: 

A9FF 


LDA# 

#255 

C21 7: 

8D9102 


STA 

;SHFTCOM 



* 

MELDUNG 'TERMINAL* 

C21A: 

20BFC2 


JSR 

? CLRSCRN 

C21D: 

20C4C2 


JSR 

;PRINT 

C220: 




&TERMINAL 

C220: 

544552 




C223: 

4D494E 




C226: 

41 4C 




C228: 

OD 



.CR 

C229: 

8D 



. CR+128 



* 

DATEI NUMMER 

3 SCHLIESSEN 

C22A: 

A903 


LDA# 

#3 

C22C: 

20C3FF 


JSR 

;CLOSE 



* 

GERAET, SEKUNDAERADRESSE DATEINUMMER SETZEN 

C22F: 

A202 


LDX# 

#2 

C231 : 

AOOO 


LDY# 

#0 

C233: 

A903 


LDA# 

#3 

C235: 

2OBAFF 


JSR 

;SETFPA 



* 

DATEINAME UND LAENGE SETZEN 

C238: 

A280 


LDX# 

.CONTROLL 

C23A: 

A0C3 


LDY# 

.CONTROLH 

C23C: 

A902 


LDA# 

#2 

C23E: 

20BDFF 


JSR 

;SETFNA 



* 

OPEN 


C241 : 

20C0FF 


JSR 

;OPEN 



* 

EIN- UND AUSGABEGERAET SETZEN 

C244: 

A203 


LDX# 

#3 

C246: 

20C6FF 


JSR 

;CHKIN 

C249: 

A203 


LDX# 

#3 

C24B: 

20C9FF 


JSR 

;CKOUT 



* 

EIGENER CURSOR 

C24E: 

A9AF 


LDA# 

.CURS 

C250: 

2016E7 


JSR 

;SCRNOUT 
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C253: 

A99D 

LDA# 

.BACKS 


C255: 

2016E7 

JSR 

;SCRNOUT 




* TERMIANLSCHLEIFE, BEI FEHLERSTATUS —> STOP 

C258: 

A690 

=TERMLP LDX. 

.ST 


C25A: 

D048 

BNE 

+TERMERR 


C25C: 

2042F1 

JSR 

;FROMKBD 


C25F: 

F012 

BEQ 

+NOKEY 




* TASTE GEDRUECKT? - JA! 


C261 : 

C914 

CMP# 

.DEL 


C263: 

D002 

BNE 

+NODEL 




* 1 DELETE-TASTE 1 IN STANDARD 

ASCII-CODE BS ($08) 



* UMWANDELN 



C265: 

A908 

LDA# 

.BS 


C267: 

C90D 

=NODEL CMP# 

.CR 


C269: 

D005 

BNE 

+NOCR 


C26B: 

20D2FF 

JSR 

;BSOUT 




* BEI CR NOCH 

LF HINZUFUEGEN 


C26E: 

A90A 

LDA# 

.LF 


C270: 

20D2FF 

JSR 

? BSOUT 




* EINGABE UEBER RS232 


C273: 

20E4FF 

=NOKEY JSR 

; GET 


C276: 

20A8C2 

JSR 

;TRANSL 


C279: 

FODD 

BEQ 

+TERMLP 




* DRUCKBARES ! 

ZEICHEN? - JA! 


C27B: 

C90D 

CMP# 

.CR 


C27D: 

D007 

BNE 

+TOSCRN 




* BEI CR CURSOR LOESCHEN 


C27F: 

A920 

LDA# 

i 


C281 : 

2016E7 

JSR 

;SCRNOUT 


C284: 

A90D 

LDA# 

.CR 




* ZEICHEN IN COMMODORE ASCII 

UMWANDELN 

C286: 

48 

=TOSCRN PHA 



C287: 

C941 

CMP# 

'A 


C289: 

9008 

BCC 

+TOSCRN2 


C28B: 

C95B 

CMP# 

$5B 


C28D: 

BO 04 

BCS 

+TOSCRN2 


C28F: 

68 

PLA 



C290: 

4920 

EOR# 

$20 


C292: 

48 

PHA 



C293: 

68 

=TOSCRN2 PLA 



C294: 

2016E7 

JSR 

;SCRNOUT 




* CURSOR AN DIE NAECHSTE STELLE SETZEN 

C297: 

A9AF 

LDA# 

.CURS 


C299: 

2016E7 

JSR 

;SCRNOUT 
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C29C: 

A99D 

LDA# 

.BACKS 

C29E: 

2016E7 

JSR 

;SCRNOUT 

C2A1 : 

4C58C2 

JMP 

;TERMLP 

C2A4: 

20E7FF 

=TERMERR JSR 

;CLALL 

C2A7: 

60 

RTS 

* WANDELT ASCII-CODE IN COMMODORE-CODE UM 

* NICHT DIE 'NICHT DARSTELLBAREN' 

C2A8: 

A014 

=TRANSL LDY# 

.DEL 

C2AA: 

297F 

AND# 

$7F 

C2AC: 

C908 

CMP# 

.BS 

C2AE: 

FOOD 

BEQ 

+TRNSRTS 

C2B0: 

AOOD 

LDY# 

.CR 

C2B2: 

C90D 

CMP# 

.CR 

C2B4: 

F007 

BEQ 

+TRNSRTS 

C2B6: 

A000 

LDY# 

#0 

C2B8: 

C920 

CMP# 

' 

C2BA: 

9001 

BCC 

+TRNSRTS 

C2BC: 

A8 

TAY 


C2BD: 

98 

=TRNSRTS TYA 


C2BE: 

60 

RTS 

* BILDSCHIRM LOESCHEN 

C2BF: 

A993 

=CLRSCRN LDA# 

• CLS 

C2C1 : 

4CD2FF 

JMP 

* AUSGABE VON 

;BSOUT 

ZEICHENKETTEN (KAPITEL 2) 

C2C4: 

68 

=PRINT PLA 


C2C5: 

858E 

STA. 

.AUX 

C2C7: 

68 

PLA 


C2C8: 

858F 

STA. 

.AUX+1 

C2CA: 

A200 

LDX# 

#0 

C2CC: 

E68F 

PRINT1 INC. 

.AUX 

C2CE: 

D002 

BNE 

+PRINT2 

C2D0: 

AI 8E 

INC. 

.AUX+1 

C2D2: 

AI 8E 

=PRINT2 LDA@X 

.AUX 

C2D4: 

297F 

AND# 

$7F 

C2D6: 

20D2FF 

JSR 

;BSOUT 

C2D9: 

A200 

LDX# 

#0 

C2DB: 

A18E 

LDA@X 

.AUX 

C2DD: 

1 Oed 

BPL 

+PRINT1 

C2DF: 

A58F 

LDA. 

.AUX+1 

C2E1 : 

48 

PHA 


C2E2: 

A58E 

LDA. 

.AUX 

C2E4: 

48 

PHA 


C2E5: 

60 

RTS 
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* ZEICHEN VON 

DER TASTATUR 

C2E6: 

20E4FF 

=NINPUT JSR 

;GET 

C2E9: 

FOFB 

BEQ 

;NINPUT 

C2EB: 

C930 

CMP# 

•o 

C2ED: 

90F7 

BCC 

+NINPUT 

C2EF: 

C93A 

CMP# 

i . 

C2F1 : 

B0F3 

BCS 

+NINPUT 

C2F3: 

290F 

AND# 

$0F 

C2F5: 

60 

RTS 




* BAUDRATE 


C2F6: 

01 

=BAUDTAB 

#1 

C2F7: 

02 


#2 

C2F8: 

03 


#3 

C2F9: 

04 


#4 

C2FA: 

05 


#5 

C2FB: 

06 


#6 

C2FC: 

07 


#7 

C2FD: 

08 


#8 

C2FE: 

09 


#9 

C2FF: 

OA 

* DATENBITS 

#10 

C300: 

00 

=BITTAB 

$0 

C301 : 

20 


$20 

C302: 

40 


$40 

C303: 

60 

* STOPBITS 

$60 

G304: 

00 

=STOPTAB 

$0 

C305: 

80 

* HANDSHAKE 

$80 

C306: 

00 

=HANDTAB 

#0 

C307: 

01 

* DUPLEX 

#1 

C308: 

00 

=DUPLTAB 

$0 

C309: 

10 

* PARITAET 

$10 

C30A: 

00 

=PARTAB 

$0 

C30B: 

20 


$20 

C30C: 

60 


$60 

C30D: 

AO 


$A0 

C30E: 

EO 


$E0 
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Terminal 


* DER 'DATEINAME' 


@$C3 =CONTROLH 

@$80 =CONTROLL 

@$C380 =ORG2 

C380: 00 =CONTROL #0 

C381 : 00 =COMMAND #0 


ASSEMBLIERUNG BEENDET 
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Wie man den C-64 mit einem Atari verbindet 


Wie man den C-64 mit einem Atari verbindet 


Wir haben einen ATARI 800 über die eingebaute RS232-Schnittstelle 
mit Erfolg an den Commodore 64 angeschlossen. In unserem Fall 
diente der ATARI als Sende-, der C64 als Empfangsgerät. Das fol¬ 
gende Programm enthält nur Beispiele. Sie müssen Ihre eigenen 
PUT- und GET-Unterprogramme noch anfügen. Starten Sie zuerst das 
Empfangsgerät (C64), dann das Sendegerät (ATARI). Der C64 wartet 
bis ein Datenbyte kommt, das ungleich Null ist. Nach dem ersten 
Zeichen wartet der C64, bis neue Daten von der RS232-Schnittstel- 
le empfangen wurden, dann verzweigt das Programm in ein vom 
Anwender erstelltes PUT-Programm. 

Diesmal müssen nur zwei Leitungen verbunden werden. Sie dürfen 
das Signal nicht invertieren, da das ATARI-Programm dies per 
Software erledigt. Verbinden Sie die Rechner folgendermaßen: 

ATARI 

GAME Port 3 

Pin 1 : Sendedaten 
Pin 2 : Masse 


COMMODORE 64 

User Port 

Pin B & C : Empfangsdaten 
Pin N : Masse 

Verbinden Sie Pin 1 mit Pin B & C und Pin 2 mit Pin N. 

Meistens wird das erste Datenbyte zerstört. Sie senden deshalb 
besser erst ein Byte, das nicht verwendet werden muß. Die Pro¬ 
gramme senden und empfangen mit 300 Baud. Das heißt, daß die 
Übertragung großer Datenmengen sehr lange dauern wird. Sie können 
die Geschwindigkeit vergrößern, wenn Sie die Baudrate erhöhen. 


* EMPFANGEN VOM ATARI 800 

@$29B =RECPOIN 

@$FFBA =SETFPA 

@$FFBD =SETFNA 
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@$FFCO =OPEN 

@$FFC3 =CLOSE 

§$FFC6 =CHLIN 

@$FFCC =CLRCH 

@$FFE4 =GET 

* ANWENDERDEFINIERT 



@$B000 


=PUT 


@$C000 


=ORG 

C000: 

A902 

LDA# 

#2 

C002: 

A202 

LDX# 

#2 

C004: 

A000 

LDY# 

#0 

C006: 

20BAFF 

JSR 

;SETFPA 

C009: 

A902 

LDA# 

#2 

CO OB: 

A200 

LDX# 

.NAMEL 

C00D: 

A0C1 

LDY# 

•NAMEH 

C00F: 

20BDFF 

JSR 

;SETFNA 

C012: 

20C0FF 

JSR 

;OPEN 

C015: 

A202 

LDX# 

#2 

C017: 

20C6FF 

JSR 

;CHKIN 

C01A: 

20E4FF =WAIT 

JSR 

;GET 

C01D: 

FOFB 

BEQ 

+WAIT 

C01F: 

AD9B02 

LDA 

/RECPOIN 

C022: 

8D02C1 

STA 

;OLDPOIN 

C025: 

4C2DC0 

JMP 

;WAIT2 

C028: 

2000B0 =LOOP 

JSR 

;PUT 


* CARRY GESETZT —> BUFFER VOLL 

C02B: BO11 BCS +READY 

* AUF ZEICHEN WARTEN 


C02D: 

AD9B02 

=WAIT2 

LDA 

;RECPOIN 

C030: 

CD02C1 


CMP 

;OLDPOIN 

C033: 

F0F8 


BEQ 

+WAIT2 

C035: 

8D02C1 


STA 

;OLDPOIN 

C038: 

20E4FF 


JSR 

; GET 

C03B: 

4C28C0 


JMP 

;LOOP 

C03E: 

A902 

=READY 

LDA# 

#2 

C040: 

20C3FF 


JSR 

;CLOSE 

C043: 

20CCFF 


JSR 

;CLRCH 

C046: 

00 

@$C1 

BRK 

=NAMEH 



@$0 


=NAMEL 



@C1 00 


=NAME 

CI 00: 

86 



$86 

CI 01 : 

10 



$10 

CI 02: 

00 

=OLDPOIN 


#0 


1 30 



Wie man den C-64 mit einem Atari verbindet 


ATARIPROGRAMM: SENDEN 


@$1F =COUNT 

@$3303 =GET 

@$D303 =PACTL 

@$D301 =PORTA 

@$D40E =NMIEN 

@$D400 =DMACTL 

* K UND L FUER 300 BAUD 




@150 


=K 



@6 


=L 



@ $AB0 0 


=ORG 

AB00: 

A930 


LDA# 

$30 

ABO 2: 

8D03D3 


STA 

;PACTL 

ABO 5: 

A901 


LDA# 

#1 

ABO 7: 

8D01D3 


STA 

;PORTA 

ABOA: 

A934 


LDA# 

$34 

ABOC: 

8D03D3 


STA 

;PACTL 

ABOF: 

A901 


LDA# 

#1 

AB11 : 

8D01D3 


STA 

?PORTA 

ABI 4: 

2067AB 


JSR 

;BITWAIT 

ABI 7: 

2067AB 


JSR 

;BITWAIT 

ABI A: 

200333 

=LOOP 

JSR 

; GET 

ABI D: 

48 


PHA 


AB1E: 

2027AB 


JSR 

;SEROUT 

AB21 : 

68 


PLA 




* BEI CTRL-Z ANHALTEN 

AB22: 

C91 A 


CMP# 

#26 

AB24: 

D0F4 


BNE 

+LOOP 

AB26: 

00 


BRK 




* SERIELLE AUSGABE 

AB27: 

8D72AB 

=SEROUT 

STA 

;BUFFER 



* KEINE 

INTERRUPTS ZULAÜ 

AB2A: 

78 


SEI 


AB2B: 

A900 


LDA# 

#0 

AB2D: 

8D0ED4 


STA 

;NMIEN 

AB30: 

8D00D4 


STA 

;DMACTL 



* STARTBIT SENDEN 

AB33: 

A900 


LDA# 

#0 

AB35: 

8D01D3 


STA 

;PORTA 

AB38: 

2067AB 


JSR 

;BITWAIT 



* BYTE 

SENDEN 


AB3B: 

A008 


LDY# 

#8 

AB3D: 

841F 


STY. 

.COUNT 


* 
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AB3F: AD72AB 
AB42: 8D01D3 
AB45: 6A 
AB46: 8D72AB 
AB49: 2067AB 
AB4C: C61F 
AB4E: DOEF 

AB50: A901 
AB52: 8D01D3 
AB55: 2067AB 
AB58: 2067AB 

AB5B: A922 
AB5D: 8D00D4 
AB60: A9FF 
AB62: 8D0ED4 
AB65: 58 
AB66: 60 

AB67: A296 
AB69: A006 
AB6B: 88 
AB6C: DOFD 
AB6E: CA 
AB6F: D0F8 
AB71: 60 


AB72: 00 
ASSEMBLIERUNG 


SENDBYT LDA 

;BUFFER 

STA 

;PORTA 

RORA 


STA 

;BUFFER 

JSR 

;BITWAIT 

DEC 

.COUNT 

BNE 

+SENDBYT 

2 STOPBITS SENDEN 

LDA# 

#1 

STA 

? PORTA 

JSR 

?BITWAIT 

JSR 

?BITWAIT 

INTERRUPTS 

ZULASSEN 

LDA# 

$22 

STA 

;DMACTL 

LDA# 

$FF 

STA 

;NMIEN 

CLI 


RTS 


UNTERPROGRAMM FUER GENAUE 

BITWAIT LDX# 

.K 

LOOPK LDY# 

.L 

LOOPL DEY 


BNE 

+LOOPL 

DEX 


BNE 

+LOOPK 

RTS 



► UNTERPROGRAMM FUER DEN RS232 TREIBER 
t 1 BYTE BUFFER 
=BUFFER #0 


BEENDET 
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Die RESTORE-Taste 


Die RESTORE-Taste 


Auf der rechten Seite Ihrer C64-Tastatur befindet sich eine Taste 
mit der Aufschrift 1 RESTORE*. Welche Funktion hat diese Taste? 

Vielleicht haben Sie sie schon in BASIC zusammen mit der 
RUN/STOP-Taste für einen BASIC-Warmstart verwendet. Was passiert, 
wenn man die RESTORE-Taste drückt? Es wird ein NMI-Interrupt 
ausgelöst und der Programmzähler des Bausteins 6510 wird mit der 
Adresse, die an den Speieherstellen $FFFA und $FFFB abgelegt ist, 
geladen. Diese Speicherstellen liegen im ROM und die abgespei¬ 
cherte Adresse lautet $FE43. Sehen wir uns den sogenannten NMI- 
Treiber ab Adresse $FE43 an. 


FE43 

78 

SEI 



FE44 

6C1803 

JMP@ 

;$0318 

JMP $FE47 

FE47 

48 

PHA 



FE48 

8A 

TXA 



FE49 

48 

PHA 



FE4A 

98 

TYA 



FE4B 

48 

PHA 



FE4C 

A97F 

LDA# 

$7A 


FE4E 

8D0DDD 

STA 

; $DD0D 


FE51 

ACODDD 

LDY 

;$DD0D 


FE54 

301 C 

BMI 

+$FE72 

RS232? 

FE56 

2002FD 

JSR 

;$FD0 2 

ROM IN $8000? 

FE59 

DO 03 

BNE 

+$FE5E 

NEIN! 

FE5B 

6C0280 

JMP@ 

;$8002 

JA! INS ROM SPRINGEN 

FE5E 

20BCF6 

JSR 

;$F6BC 

FLAG FUER STOP SETZEN 

FE61 

20E1FF 

JSR 

;$FFE1 

STOP TASTE? 

FE64 

D00C 

BNE 

+$FE72 

NEIN! DANN ABFRAGE RS232 

FE66 

2015FD 

JSR 

;$FD15 

INITIALISIERUNG DER IO VEKTOREN 

FE69 

20A3FD 

JSR 

;$FDA3 

IO INITIALISIERUNG 

FE6C 

2018E5 

JSR 

;$E518 

IO INIT. BILDSCHIRM LOESCHEN 

FE6F 

6C02A0 

JMP@ 

;$A00 2 

BASIC WARMSTART 

FE72 

- FEBB 

RS232 

TREIBER 


FEBC 

68 

PLA 


REGISTERINHALTE WIEDERHOLEN 

FEBD 

A8 

TAY 



FEBE 

68 

PLA 
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FEBF 

AA 

TAX 


FECO 

68 

PLA 


FEC1 

40 

RTI 

ZURUECK INS PROGRAMM 

Sie 

können 

also den 

Vektor auf $0318-$0319 ändern und ihn auf 


Ihren eigenen NMI-Treiber zeigen lassen. Sie müssen vorher die 
Register sichern und prüfen, ob die RS232-Schnittstelle in Ihrem 
eigenen Treiber aktiv ist. Ist das der Fall, müssen Sie nach 
$FE72 springen. Sonst können Sie Ihr Programm neu starten. 

Das folgende Programm ist ein Beispiel. 


RESET UEBER RESTORE 
VERWENDUNG VON NMI 


§$318 =NMIVECT 

§ $FE72 =OTHMNI 

§ $F6BC =STSTOPB 

§ $FFE1 =STOPQ 

§ $FD15 =SETVECT 

§ $FDA3 =INITIOl 

§$E518 =INITI02 

'§$810 =USER 

§$C0 =NMIHNDH 

§$B =NMIHNDL 

§$C000 =ORG 

* DEN NMIVEKTOR IN TREIBER SETZEN 


C000: 

A90B 

=INITNMI 

LDA# 

•NMIHNDL 

C002: 

8D1803 


STA 

;NMIVECT 

C005: 

A9C0 


LDA# 

•NMIHNDH 

C007: 

8D1903 


STA 

;NMIVECT- 

C00A: 

00 


BRK 




* NMI TREIBER 


CO OB: 

48 

=NMIHND 

PHA 


C00C: 

8A 


TXA 


C00D: 

48 


PHA 


C00E: 

98 


TYA 


C00F: 

48 


PHA 




* RS232 

AKTIV? 


C010: 

A97F 


LDA# 

$7F 
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C012: 

8D0DDD 



STA 

;$DD0D 

C015: 

ACODDD 



LDY 

;$DD0D 

C018: 

301E 



BMI 

+RS232 



★ 

NEIN! 

STOPKEY? 

C01A: 

20BCF6 



JSR 

;SETSTOP 

C01D: 

20E1FF 



JSR 

;STOPQ 

C020: 

D01 6 



BNE 

+RS232 



* 

JA! INITIALISIEREN 

C022: 

2015FD 



JSR 

;SETVECT 

C025: 

20A3FD 



JSR 

;INITIOI 

C028: 

2018E5 



JSR 

;INITI02 



* 

VECTOR ZURUECKLADEN 

C02B: 

A90B 



LDA# 

.NMIHNDL 

C02D: 

8D1803 



STA 

;NMIVECT 

C030: 

A9C0 



LDA# 

.NMIHNDH 

C032: 

8D1903 



STA 

;N MI VECT- 



* 

SPRINGE IN WARMSTART 

C035: 

4C1008 



JMP 

;USER 



* 

ODER 

IN RS232 

TREIBER 

C038: 

4C72FE 

=RS232 

JMP 

;OTHNMI 


ASSEMBLIERUNG BEENDET 


137 







Schnelle Ausgabe 
von Sedezimalzahlen 




Schnelle Ausgabe von Sedezimalzahlen 


Schnelle Ausgabe von Sedezimalzahlen 


Das nächste Programm stellt ein schnelles und kompaktes Hexdunp- 
Programm dar. Sie müssen Anfangs- und Endadresse eines Speicher¬ 
blocks angeben, den Sie auf einen Drucker ausgeben wollen. Das 
Programm arbeitet mit einem Drucker mit RS232-Schnittsteile. 
Anfangs- und Endadresse müssen in die bezeichneten Speicherste1- 
len eingegeben werden. 


SCHNELLE AUSGABE VON SEDEZI- * 
MALZAHLEN * 


@$80 
@$82 
@$29D 
@$29E 
@$FFBA 
@$FFBD 
@ $FFC0 
@$FFC3 
@$FFC9 
@$FFE1 
@$FFE7 
@$FFD2 
@13 
@10 

* 16 BYTE PRO ZEILE 
@16 
@$C000 

* DATEINUMMER 


=FROM 

=TO 

=RS2320T 

=RS232AC 

=SETFPA 

=SETFNA 

=OPEN 

=CLOSE 

=CKOUT 

=STOPQ 

=CLALL 

=BSOUT 

=CR 

=LF 


=MAX 

=ORG 

2 SCHLIESSEN 


C000: 

A902 

LDA# 

#2 

C002: 

20C3FF 

JSR 

;CLOSE 


* 

DATEINUMMER, 

GERAET UND SEKUNDAERADRESSE 

C005: 

A902 

LDA# 

#2 

C007: 

A202 

LDX# 

#2 

C009: 

A0C0 

LDY# 

#0 

C00B: 

2OBAFF 

JSR 

;SETFPA 


* 

DATEINAME UND LAENGE* SETZEN 

C00E: 

A902 

LDA# 

#2 

C01 0: 

A200 

LDX# 

.FNAMEL 
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C012: 

A0C1 


LDY# 

.FNAMEH 

C014: 

20BDFF 


JSR 

;SETFNA 



* DATEI 

EROEFFNEN 

C017: 

20C0FF 


JSR 

;OPEN 



* AUSGABEGERAET SETZEN 

C01A: 

A202 


LDX# 

#2 

C01C: 

20C9FF 


JSR 

;CKOUT 

C01F: 

A580 

=LINELP 

LDA. 

.FROM 

C021 : 

C582 


CMP • 

.TO 

C023: 

A581 


LDA, 

.FROM+1 

C025: 

E583 


SBC. 

. TO+1 

C027: 

BO 38 


BCS 

+READY 

C029: 

A90D 


LDA# 

.CR 

C02B: 

20D2FF 


JSR 

;BSOUT 

C02E: 

A90A 


LDA# 

.LF 

C030: 

20D2FF 


JSR 

;BSOUT 

C033: 

A581 


LDA. 

.FROM+1 

C035: 

206DC0 


JSR 

; PRBYTE 

C038: 

A580 


LDA. 

.FROM 

C03A: 

206DC0 


JSR 

; PRBYTE 

C03D: 

A920 


LDA# 

i 

C03F: 

20D2FF 


JSR 

;BSOUT 

C042: 

20E1FF 


JSR 

? STOPQ 

C045: 

F01A 


BEQ 

+READY 

C047: 

A000 


LDY# 

#0 

C049: 

Bl 80 

=PRLCX)P 

LDA@Y 

.FROM 

C04B: 

206DC0 


JSR 

;PRBYTE 

C04E: 

C8 


INY 


C04F: 

C010 


CPY# 

.MAX 

C051 : 

90F6 


BCC 

+PRLOOP 



* ZEILENAUSGABE (MAX BYTE) 

C053: 

98 


TYA 


C054: 

18 


CLC 


C055: 

6580 


ADC. 

.FROM 

C057: 

8580 


STA. 

.FROM 

C059: 

90C4 


BCC 

+LINELP 

C05B: 

E681 


INC. 

.FROM+1 

C05D: 

F002 


BEQ 

+READY 

C05F: 

BO BE 


BCS 

;LINELP 



* DRUCKER MUSS 

FERTIG SEIN 

C061 : 

AD9D02 

=READY 

LDA 

;RS2320T 

C064: 

CD9E02 


CMP 

;RS232AC 

C067: 

D0F8 


BNE 

+READY 



* CLOSE 

ALL 
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C069: 

20E7FF 

JSR 

;CLALL 

C06C: 

00 

BRK 

* AKKU-INHALT 

ALS HEX-BYTE AUSDRUCKEN 

C06D: 

48 

=PRBYTE PHA 


C06E: 

4A 

LSRA 


C06F: 

4A 

LSRA 


C070: 

4A 

LSRA 


CO 71: 

4A 

LSRA 


C072: 

2078C0 

JSR 

;HEXOUT 

C075: 

68 

PLA 


CO 76: 

290F 

AND# 

#15 

CO 78: 

C90A 

=HEXOUT CMP# 

#10 

C07A: 

BO 04 

BCS 

+ALFA 

C07C: 

0930 

ORA# 

'0 

C07E: 

D002 

BNE 

+HXOUT 

C080: 

6936 

=ALFA ADC# 

$36 

C082: 

4CD2FF 

=HXOUT JMP ;BSOUT 

* RS232 KONTROLL- UND 

* BEFEHLSBYTE 

§$C1 =FNAMEH 

@$0 =FNAMEL 

@$C100 =FNAME 

CI 00: 

86 


$86 

C101 : 

10 


$10 

ASSEMBLIERUNG BEENDET 
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Einige Tips 


Wie man A/D-Wandler verwendet 


Der C-64 besitzt zwei A/D-Wandler. Sie können damit ein Paar 
Paddies anschließen, Paddies sind Potentiometer. Das heißt, die 
A/D-Wandler des C-64 stellen eine Art Meßgerät dar. 

Der A/D-Wandler arbeitet folgendermaßen: Ein Kondensator wird auf 
5 Volt aufgeladen. Register 25 (oder 26) des Bausteins SID 
($D400) enthält einen Wert, der der benötigten Zeit entspricht. 
Dieser Vorgang wiederholt sich laufend. Damit*der ganze Bereich 
von 8 Bit (0 - 255 ) ausgenutzt' wird, muß der Wertebereich des 
Widerstands von 0 bis 50OK Ohm gehen. Beim laufenden Abtasten der 
Werte der beiden A/D-Wandler muß eine Zeitschleife durchlaufen 
werden, da die Werte während des Ladens der Kondensatoren insta¬ 
bil sind. Da zwei Spielports vorhanden sind, können zwei Paar, 
also insgesammt vier Paddies, Paddies werden. Weil es aber nur 
zwei A/D-Wandler gibt, muß man nach einer Lösung suchen, die 
Paddies zu bestimmen. Für die Paddies an Spielport 1 muß $80 in 
die Speicherstelle abgelegt werden. Für die Paddies an Spielport 
2 muß $40 abgelegt werden. Beim Arbeiten mit den Paddies muß die 
Tastatur abgeschaltet sein. Das wird erreicht, indem man den 
Interrupt (SEI) sperrt und $C0 in die Speicherstelle $DC02 ab¬ 
legt, bevor man den Paddle-Wert liest. Danach muß die Tastatur 
wieder freigegeben werden, indem das Interruptflag (CLI) rück¬ 
setzt und $FF in $dc02 ablegt. 

Natürlich sind das keine sehr genauen A/D-Wandler, aber sie 
können für kleine Meßaufgaben und zum Anschluß von Joysticks und 
Paddies verwendet werden. 


ROM ins RAM kopieren 


Der C-64 hat 64k Byte RAM zur Verfügung. Ah einigen Stellen ist 
ROM überlagert. Lesen Sie eine Speicherstelle, erhalten Sie den 
im ROM gespeicherten Wert und nicht den des RAM's. Schreiben Sie 
etwas in ein vom ROM überlagertes RAM, wird ins RAM geschrieben, 
das unterhalb des ROM liegt. Lesen Sie es zurück, erhalten Sie 
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den ROM-Inhalt. Schalten Sie das ROM ab, können Sie die RAM-Werte 
lesen. In einer RAM-Kopie des ROM-Inhalts kann das Betriebssystem 
geändert werden. 




* 

KOPIERPROGRA^ 



* 

ROM INS RAM 



§2 


=PT 



@4 


=MAX 



@$C000 


=ORG 

C000: 

A502 


LDA. 

.PT 

C002: 

C504 


CMP • 

.MAX 

C004: 

A503 


LDA. 

• PT+1 

C006: 

E505 


SBC. 

•MAX+1 

C008: 

B00F 


BCS 

+READY 

C00A: 

A200 


LDX# 

#2 

C00C: 

AI 02 

=COPY 

LDA@X 

.PT 

C00E: 

8102 


STA@X 

.PT 

C01 0: 

E602 


INC. 

.PT 

C012: 

D002 


BNE 

+JMPCOI 

C01 4: 

E603 


INC. 

.PT+1 

C01 6: 

4C0CC0 

=JMPCOPY 

JMP 

;COPY 

C01 9: 

00 

=READY 

BRK 



* 

* 


ASSEMBLIERUNG BEENDET 


Groß- und Kleinschreibung auf dem 2022 


Sie müssen für die Anwahl des Druckers für Groß- oder Klein¬ 
schreibung besondere Zeichen (Cursor nach oben und Cursor nach 
unten) senden. Möglicherweise wissen Sie aber nicht, daß es für 
den 2022 einen besonderen Modus gibt, der nicht * im Handbuch 
aufgeführt ist, der es ermöglicht, Groß- und Kleinbuchstaben 
gemischt auszudrucken. 

Zuerst müssen Sie den Drucker mit der Sekundäradresse 7 öffnen, 
ihn sofort wieder schließen und ihn erneut mit der Sekundäradres¬ 
se 0 öffnen. Jetzt werden alle Zeichen auf dem 2022 ausgedruckt 
wie sie ankommen. Ausgenommen sind die Zeichen [ ] _ t \. 
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Editor und Assembler 


Der Editor 


Der Editor ist ein wichtiges Hilfsmittel zur Eingabe eines Tex¬ 
tes. Viele Editorprogramme sind sehr komfortabel: automatischer 
Randausgleich, Hilfe beim Trennen von Wörtern und vieles mehr 
werden angeboten. In unserem Fall dient der Editor nur dazu, den 
Quelltext in einem für unseren Assembler verständlichen Format 
auf die Diskette zu bringen. 

Dieser Editor ist eine 'Minimalversion' und besitzt nur die 
notwendigsten Grundfunktionen. Dennoch wird der Benutzer mit 
Hilfe der Menütechnik und mit entsprechenden Anweisungen geführt. 
Dadurch erübrigt sich eine detaillierte Diskussion der Befehle. 

Beachten Sie bitte, daß Sie die Dateinamen, nach denen gefragt 
wird, so wählen, daß sie nicht mit bereits vorhandenen überein¬ 
stimmen. Sie verlieren sonst den ursprünglichen Dateiinhalt. Das 
gilt natürlich nicht für die Ausgangsdatei beim Ändern bzw. beim 
Ergänzen des Quelltextes. 


100 DIM T$(100) 

110 PRINTCHR$(147):PRINT 

120 PRlNT" EDITOR VERSION 1.0":PRINT:PRINT 
130 PRINT" E - EINGABE AENDERN" 

140 PRINT:PRINT" N - NEUEINGABE":PRINT:PRINT:PRINT 
150 PRINT" BITTE GEBEN SIE EINEN BEFEHL EIN" 

160 GET A$:IFA$=""THEN160 
170 IFA$="E"THEN6000 
180 IFA$="N"THEN3000 

190 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT" FEHLEINGABE" 

200 FORK=0TO500:NEXTK:G0T0110 
3000 REM NEUEINGABE 
3010 PRINTCHR$ (147) 

3020 INPUT" DATEINAME";F$ 

3030 OPEN5,8,5,"@0:"+F$+",S,W" 

3040 FORI=0TO99 

3050 PRINTCHR$(147)NEUEINGABE":PRINT:PRINT 
3060 INPUTT$(I) 

3070 IFT$(I)=""THEN5000 
3080 NEXT I 

3090 PRINTCHR$ (1 47) : PRINT-.PRINT" BITTE WARTEN" 
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3100 FORJ=0TO99 

3105 IFT$(J)=""THEN5050 

3110 PRINT#5,T$(J) 

3120 NEXTJ 
3125 GOSUB10000 
3130 GOTO3040 

5000 PRINTCHR$(147):PRINT:PRINT:INPUT" ENDE DER EINGABE (J/N)";A$ 

5010 IFA$="N"THENTHEN3080 

5020 FORJ=OTOI-1 

5025 IFT$(J)=""THEN5050 

5030 PRINT#5,T$(J) 

5040 NEXTJ 

5050 CLOSE5:PRINTCHR$(147):END 
6000 REM ZEICHENKETTEN AENDERN 
6010 PRINTCHR$(147):PRINT:PRINT:PRINT 

6020 PRINT" NAME DER ZU AENDERNDEN DATEI";:INPUTF1$:PRINT:PRINT:P 
RINT 

6030 PRINT" NAME DER GEAENDERTEN DATEI";:INPUTF2$ 

6040 PRINTCHR$(147);" ZEICHENKETTEN AENDERN":PRINT:PRINT:PRINT 
6050 OPEN5,8,5,"@0:"+F1 $+",S,R":OPEN2,8,2,"@0:"+F2 $+",S,W" 

6060 FORI=0TO99 
6070 INPUT#5;T$(I) 

-6075 IFST<>0THENF=1:GOTO6090 
6080 NEXTI 
6090 Z=Z+1 

6100 PRINT" SOLL IN DEN ";Z;". HUNDERT ZEICHENKETTEN GEAENDERT WE 
RDEN (J/N)"; 

6110 GETA$:IFA$=""THEN6110 
6120 IFA$="J"THEN8000 
6130 FORI=0TO99 
6135 IFT$(1)=""THEN61 51 
6140 PRINT#2 jT$(I) 

6150 NEXTI 

6151 GOSUB10000:IFF=1THEN9000 

6152 FORI=0TO99 
6154 INPUT#5,T$(I) 

61 56 IFSTO0THENF=1 :PRINTCHR$ (1 47) :GOTO6090 
6158 NEXTI 

6160 PRINTCHR$(147):GOTO6090 
8000 REM AENDERUNGSTEIL 
8010 PRINTCHR$(1 47) 

8020 INPUT" NUMMER DER ZEICHENKETTE";N 
8030 PRINT:PRINTT$(N-1 00*(Z-1 )) 

8040 PRINT:INPUT" NEUE ZEICHENKETTE";T$(N-100*(Z-1)):PRINTCHR$(14 
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7):G0T06100 

9000 CL0SE2:CL0SE5:PRINTCHR$(147):END 
10000 REM MATRIX LOESCHEN 
10010 FORI=0TO99:T$(I)="":NEXTI:RETURN 


Der Assembler 


Der Assembler verlangt die Einhaltung einiger Konventionen. Er 
erwartet, daß in der Quelltextdatei Ansprungmarken, Befehle und 
Operanden getrennt voneinander als EinzelZeichenketten vorhanden 
sind. Dies läßt sich ganz einfach bewerkstelligen, indem man im 
Editor die Elemente einzeln eingibt. Darüberhinaus sind noch 
einige syntaxabhängige Sonderzeichen zu berücksichtigen, die zur 
Kennzeichnung der Adressierungsarten verwendet werden. 

Die im Buch aufgeführten Beispielprogramme zeigen die Darstel¬ 
lung, die der Assembler ausdruckt. Neben dem Quelltext werden 
Adressen und Hex-Code angezeigt. Die mit einem Sternchen (*) ver¬ 
sehenen Zeilen dienen lediglich als Erklärung für den Leser. Für 
den Assembler’ muß in den Editor nur der Quelltext eingegeben wer¬ 
den. 

Wertzuweisung und Ansprungpunkte müssen als erstes Zeichen immer 
ein Gleichheitszeichen (=) besitzen. Sie dürfen eine Länge von 
acht Zeichen (einschließlich Gleichheitszeichen) nicht über¬ 
schreiten. 

Für Wertzuweisungen gilt folgende Regel: 


§ Zahl 


=Symbol 


Beispiele: §1000 

§$FF00 


=WERT1 

=WERT2 
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Befehls-Sonderzeichen für Adressierungsarten 


.+-+-+. 


Adre s sierungs- 
arten 

an den Befehl 
anzuhängendes 
Zeichen 

Beispiel 

Mnemonik | 

Hex-Code 

Immediate 

# 

CMP# 

' A 

C941 

Absolute 


JMP 

; MARKE 

4C???? 

Zero Page 


INC. 

$30 

E630 

Indexed indi- 

rect 

@x 

LDA@X 

#10 

Al 0A 

Indirect in¬ 
dexed 

@Y 

SBC@Y 

#48 

Fl 30 

Zero Page in¬ 
dexed^ 

.X 

ORA.X 

$1 0 

1510 

Zero Page in¬ 
dexed ,Y 

.Y 

STX. Y 

#1 

9601 

Absolute in¬ 
dexed, X 

X 

STAX 

; #256 

9D0001 

Absolute in¬ 
dexed, Y 

Y 

EORY 

;$FF01 

5901 FF 

Accumulator 

A 

ASLA 


06 

Indirect 

e 

JMP @ 

;$4000 

6C0040 

Implied 


INX 


E8 

Relativ 


BNE 

+LOOP 

DO?? 
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Für die Verarbeitung der Operanden gelten folgende Regeln: 

- Operanden, die aus einem Byte bestehen, erhalten immer ein 
Sonderzeichen.vorangestellt, das kennzeichnet, wie sie zu in¬ 
terpretieren sind. 


CMP# 

.WERT 

Symbol WERT (wurde vorher zugewiesen) 

LDA. 

#10 

Dezimalzahl 10 

AND.X 

$FF 

Hexadezimalzahl $FF 

LDA# 

'A 

ASCII-Wert 'A* 

Adressen (2 Byte) 
stellt bekommen. 

müssen immer einen Strichpunkt (;) 

LDA 

;#1000 

Dezimalzahl 1000 

STA 

;$A000 

Hexadezimalzahl $A000 

JMP 

;CLOSE 

Symbol CLOSE 


vorange- 


- Die Angabe des Sprungziels muß bei relativen Sprüngen durch ein 
Plus (+) gekennzeichnet sein. 



CMP# 

$F0 


BEQ 

+SPRUNG 


LDA 

; ALT 

=SPRUNG 

STA 

; NEU 


Mit den Sonderzeichen und '/' können Zeichenketten im Spei¬ 
cher abgelegt werden. 

=NORMAL &DAS IST TEXT 

=EXTRA /DAS IST TEXT 

Die beiden Zeichenketten sind mit Ausnahme des letzten Byte 
identisch. Das vorangestellte Sonderzeichen '/' der 1 Zeichenket¬ 
te ' =EXTRA bewirkt, daß beim Assemblieren zu diesem Byte der Wert 
128 addiert wird. Das heißt, daß Bit 7 gesetzt wird. 
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1 POKE59468,1 2:PRINTCHR$(147) 

2 REM DASM JANUAR 1984 
10 REM 

90 GOTO 62000 

100 SIZ=60:DIMSY$(SIZ),AD(SIZ) 

110 OP=56:DIMOP$(OP) 

120 FORI=1TOOP:READOP$(I):NEXTI 
900 PRINT" DURCHLAUF 1" 

1000 REM DURCHLAUF 1 

1004 IFFLG=1THEN2000 

1005 INPUT#5,B$ 

1010 IFS T< >0 THENFLG= 1 

1020 C$=LEFT$(B$,1):L$=MID$(B$,2) 

1 030 IFC$="."ORC$=" # "ORC$ =$THENPC=PC+1:GOTOI000 

1040 IFC$=";"THENPC=PC+ 2:G0T01000 

1050 IFC$="="THENGOSUB9000:PRINT B$:GOTO1000 

1 060 IFC$="@"THENGOSUB8100:PC=V:GOTOI000 

1065 IFC$="&"ORC$="/"THENPC=PC+LEN(L$)rGOTOI000 

1070 PC=PC+1:GOTOI000 

2000 REM DURCHLAUF 2 

2004 PRINT" DURHLAUF 2" 

2005 CLOSE5:OPEN5,8,5,"0:"+F$+",S,R" 

2010 FLG=0 

2020 PRINT 

2100 IFFLG=1THEN3000 

2102 INPUT#5,B$ 

2105 IFSTO0THENFLG= 1 

2110 IFASC(B$)>64ANDASC(B$)<=90THENA2$=B$:GOTO2120 
2112 IFASC(B$)=61THENA1$=B$:GOT02120 
2115 A3$=B$ 

2120 C$=LEFT$(B$,1):L$=MID$(B$,2) 

2130 IFC$="ANDF=1THENPRINTTAB(1 3);A3$;TAB(29);Al $:F=0:AI$="":A3$ 
"":GOT02100 

2135 IFC$="="THENV=PC:GOSUB8300:PRINTV$;": ";:F=3:G0T02100 
2140 IFC$="§"THENGOSUB8100:PC=V:GOSUB8300:PRINTV$;:F=1:GOTO2100 
2150 IFC$="#"ORC$="$"ORC$="'"THENL$="."+B$:GOSUB7000:GOT02100 
2160 IFC$=";"ORC$="."ORC$="+"THENL$=B$:GOSUB7000:GOT02100 
2170 GOSUB9500:L$=".$"+OP$:GOSUB7000 
2180 GOTO2100 

3000 PRINT:PRINT"ASSEMBLIERUNG BEENDET":CLOSE5 
3010 END 

7000 REM WERT ZUORDNEN 

7010 C$=LEFT$(L$,1):L$=MID$(L$,2) 

7020 IFC$<>"."ANDC$<>";"ANDC$<>"+"THENPRINT"FEHLERHAFTER OPERAND 
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:RETURN 

7030 GOSUB8200 

7040 IFC$="+"THENV=V-(PC-1):IF(V<0ANDV>-129)ORV>127THENV=V+256 

7050 IFC$<>";"AND(V<0ORV>255)THENPRINT"BYTEUEBERLAUF":V=0 

7060 H=INT(V/256):V=V-256*H:C=C-1 

7070 POKEPC,V:PC=PC+1 

7080 GOSUB8300:VY$=VY$+RIGHT$(V$,2) 

7085 IFC<0THENGOSUB8800:GOTO7900 
7090 IFOOTHENRETURN 

7100 IFTY$="-"ANDF=2THENPRINTVY$;TAB(13);AI $;TAB(23);A2$:GOTO7900 
7110 IFTY$="-"THENV=PC-1:GOSUB8300:PRINTV$;";VY$;TAB(23);A2$:G 
OTO7900 

7115 IFTY$=";"THENG0T07150 

7120 IFF=2THENPRINTVY$;TAB(13);A1$;TAB(23);A2$;TAB(29);A3$:G0T079 
00 

7130 V=PC-2:GOSUB8300:PRINTV$;”:";VY$;TAB(23);A2$;TAB(29);A3$:GOT 
07900 

7150 V=H:POKEPC,V:PC=PC+1 

71 60 GOSUB8300:VY$=VY$+RIGHT$(V$,2) 

7170 IFF=2THENPRINTVY$;TAB(13);A1$;TAB(23);A2$;TAB(29);A3$:G0T079 
00 

7180 V=PC-3:GOSUB8300:PRINTV$;": ";VY$;TAB(23);A2$;TAB(29);A3$ 

790 0 VY$="":AI$=”":A2$="":A3$="":F=0 
7910 RETURN 

8000 V=0:REM DEZIMALE WERTE 
8010 T=ASC(V$)-48:IFT>9THENT=T-7 
8020 V=1 6*V+T:V$=MID$(V$,2) 

8030 IFV$<>""THEN8010 
8040 RETURN 

8100 REM WERTZUWEISUNG 1 

811 0 LI$=LEFT$(L$,1):L2$=MID$(L$,2) 

8120 IFL1$="#"THENV=VAL(L2$):RETURN 

8130 IFL1$="$"THENV$ =L2$:GOSUB8000:RETURN 

8135 IFL1$="'"THEN V=ASC(L2$):RETURN 

8140 V=VAL(L$):RETURN 

8200 REM WERTZUWEISUNG 2 

8210 L1$=LEFT$(L$,1):L2$=MID$(L$,2) 

8220 IFL1$="#"THENV=VAL(L2$):RETURN 

8230 IFL1$="$"THENV$=L2$:GOSUB8000:RETURN 

8235 IFL1$='" "THENV=ASC(L2$):RETURN 

8240 GOSUB 9100:RETURN 

8300 REM HEX UMWANDLUNG 

8310 V$="":FORI=1T04 

8320 VX=INT(V/(16|(4-1))):IFVX<>0THENV=V-(VX*16|(4-1)) 
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8330 GOSUB8500:NEXTI:RETURN 

8500 VX$=CHR$(VX+48):IFVX>9THENVX$=CHR$(VX+55) 

8510 V$=V$+VX$:RETURN 

8600 X=0:IFF<>3THENV=PC:GOSUB8300:PRINTV$;": 

8610 PRINTTAB(13); AI $;TAB(29);A3$ 

8620 FORJ=1TOLEN(L$) 

8630 V=ASC(MID$(L$,J,1)):IFC$="/"ANDJ=LEN(L$)THEN V=V+1 28 
8640 POKEPC,V:PC=PC+1:GOSUB8300:VY$=VY$+RIGHT$(V$,2):X=X+1 
8650 IFX=3THENV=PC-3:GOSUB8300:PRINTV$;": ";VY$:VY$="":X=0 
8660 NEXTJ 

8670 IFX=OTHENRETURN 

8680 V=PC-X:GOSUB8300:PRINTV$;";VY$:RETURN 

8800 IFF=3ANDC$<>" ; "THENPRINTVY$;TAB(13);AI $;TAB(29);A3$:RETURN 
8810 IFC$<>";"THENV=PC-1:GOSUB8300:PRINTV$;": ";VY$;TAB(29);A3$:R 
ETURN 

8820 V=H:POKEPC,V:PC=PC+1 

8830 GOSUB8300:VY$=VY$+RIGHT$(V$,2) 

8840 IFF=3THENPRINTVY$;TAB(13);A1$;TAB(29);A3$:RETURN 
8850 V=PC-2:GOSUB8300:PRINTV$;";VY$;TAB(29);A3$:RETURN 
9000 REM ANSPRUNGMARKEN 

9010 IFSY>SIZETHENPRINT"ZU VIELE ANSPRUNGMARKEN":RETURN 
9020 SY$(SY)=L$:AD(SY)=PC:SY=SY+1:RETURN 
9100 REM 

9110 FORI=LEN(L$)T01 STEP-1 

9120 T$=MID$(L$,1,1):IFT$="+"ORT$="-"THEN9140 
9130 NEXTI:V=0:GOTO9160 

9140 SV$=LEFT$(L$,1-1):L$=MID$(L$,1+1):GOSUB8100 
9150 L$=SV$:IFT$="-"THENV=-V 
9160 IFSY=0THEN9190 

9170 FORI=OTOSY-1:IFSY$(I)=L$THENV=AD(I)+V:RETURN 
9180 NEXTI 

9190 PRINT"NICHT DEFINIERTE ANSPRUNGMARKE" 

9200 GOSUB900 0:V=PC+V:RETURN 

9500 REM HEXKODEZUORDNUNG 

9510 T$=LEFT$(B$,3):SF$=MID$(B$+" ",4,2) 

9520 FORI=1TOOP:OP$=OP$(I) 

9530 IFLEFT$(OP$,3)=T$THEN9560 
9540 NEXT I 

9550 PRINT"UNGUELTIGER BEFEHL":OP$="0":TY$="-":RETURN 

9560 FORI=4TOLEN(OP$)STEP5 

9570 IFMID$(OP$,1,2)=SF$THEN9590 

9580 NEXTI:GOTO9550 

9590 TY$=MID$(OP$,1+4,1):OP$=MID$(OP$,I+2,2) 

9595 IFF=3THENF=2 
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9600 

IFTY$="-"THENC=1 

:RETURN 

9610 i 

C=2:RETURN 




1 0000 

DATA"ADC 

6D;X 

7D;Y 

79;. 65..X75.§X61.@Y71.# 69." 

10010 

DATA"AND 

2D; X 

3D?Y 

39;. 25..X35.@X21.@Y31.# 29." 

1 0020 

DATA"ASL 

0E;X 

IE; . 

06..XI6.A 0A-" 

10030 

DATA"BCC 

90+" , 

"BCC 

B0+","BEQ F0+" 

1 0040 

DATA"BIT 

2C; • 

24." 

, "BMI 30+","BNE D0+","BPL 1 0+" 

1 0050 

DATA"BRK 

00-", 

"BVC 

50+">"BVS 70+" 

1 0060 

DATA"CLC 

1 8-" , 

"CLD 

D8-","CLI 58-","CLV B8-" 

10070 

DATA"CMP 

CD; X 

DD ? Y 

D9;. C5..XD5.@XC1.§YD1.# C9." 

10080 

DATA"CPX 

EC? . 

E4 .# 

E0.","CPY CC;. C4.# CO." 

10090 

DATA"DEC 

CE; X 

DE; . 

C6..XD6.","DEX CA-","DEY 88-" 

1 0100 

DATA"EOR 

4D;X 

5D;Y 

59;. 45..X55.@X41.§Y51.# 49." 

10110 

DATA"INC 

EE; X 

FE; . 

E6..XF6.","INX E8-","INY C8-" 

1 0120 

DATA"JMP 

4C;@ 

6C ? " 

, "JSR 20;" 

10130 

DATA"LDA 

AD ;X 

BD ;Y 

B9;. A5..XB5.@XA1.@YB1.# A9." 

1 0140 

DATA"LDX 

AE; Y 

BE; . 

A6..YB6.# A2." 

10150 

DATA"LDY 

AC;X 

BC; . 

A4..XB4.# A0." 

1 0160 

DATA"LSR 

4E; X 

5E; . 

46..X56.A 4A-" 

10170 

DATA"NOP 

EA-" 



1 0180 

DATA"ORA 

OD;X 

1 D; Y 

19;. 05..XI5.@X01.@Y11.§ 09." 

10190 

DATA"PHA 

48-", 

"PHP 

08-","PLA 68-","PLP 28-" 

1 0200 

DATA"ROL 

2E;X 

3E; . 

26..X36.A 2A-" 

10210 

DATA"ROR 

6E;X 

7E? • 

66..X76.A 6A-" 

1 0220 

DATA"RTI 

40-" , 

"RTS 

60-" 

10230 

DATA"SBC 

ED; X 

FD; Y 

F9;. E5..XF5.@XE1.@YF1.# E9." 

1 0240 

DATA"SEC 

38-", 

"SED 

F8-","SEI 78-" 

10250 

DATA"STA 

8D;X 

9D;Y 

99;. 85..X95.@X81.@Y91 . " 

10260 

DATA"STX 

8E; . 

86..Y96.","STY 8C;. 84..X94." 

10270 

DATA"TAX 

AA-" , 

"TAY 

A8-","TSX BA-","TXA 8A-","TXS 

"TYA 

98-" 




62000 

PRINTCHR$(147) 




62005 PRINT:PRINT" COPYRIGHT (C) 1984";TAB(22);"BY M+T, HAAR" 
62010 FORI=1TOI 0:PRINT"-";:NEXT 

62015 PRINT:PRINT:PRINT:PRINTTAB(6)"EIN EINFACHER 6502 ASSEMBLER" 
62020 PRINT:PRINT" WEITER —> RETURN DRUECKEN" 

62030 GETT$:IFT$=""THEN62030 

62035 PRINT: PRINT-.PRINT" NAME DER QUELTEXTDATEI" : PRINT: INPUT 

" " ;F$ 

62040 PRINTCHR$(147):OPEN5,8,5,"0:"+F$;",S,R":G0T0100 
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Bd. 4: Beispiele auf Diskette 

Best.-Nr. MT 598 

DM58,— ’ 

Das Commodore 64-Buch, 

Bd. 5: Simon’s Basic 

Best.-Nr. MT 599 

DM38,— 

Das Commodore 64-Buch, 

Bd. 5: Beispiele auf Diskette 

Best.-Nr. MT 600 

DM58,— 

Das Commodore 64-Buch, 

Bd. 6: Spiele 

Best.-Nr. MT 619 

DM38,- 

Das Commodore 64-Buch, 

Bd. 6: Beispiele auf Diskette 

Best.-Nr. MT 620 

DM58,- 

Computerspiele und Wissenswertes — 
Commodore 64 

Best.-Nr. MT 601 

DM 29,80’ 

Computerspiele und Wissenswertes — 
Commodore 64: Beispiele auf Diskette 
Best.-Nr. MT 602 

DM38,-’ 


Das große Spielebuch Commodore 64 

Best.-Nr. MT 603 DM29,80* 

Das große Spielebuch Commodore 64: 

Beispiele auf Diskette 
Best.-Nr. MT 604 

Software-Schnellkurs: CP/M 
Best.-Nr. MT 605 

Software-Schnellkurs: MailMerge 
Best.-Nr. MT 606 

Software-Schnellkurs: dBASE II 
Best.-Nr. MT 607 

Software-Schneilkurs: SuperCalc 
Best.-Nr. MT 608 

Software-Schnellkurs: Wordstar 
Best.-Nr. MT 609 

Software-Schnellkurs: Multiplan 
Best.-Nr. MT 610 

Software-Schnellkurs: Lotus 1-2-3 
Best.-Nr. MT 611 

Software-Schnellkurs: CP/M 86 
Best.-Nr. MT 615 


Mehr als 32 Basic-Programme für den 
Commodore 64 

Best.-Nr. MT 613 

DM49,- 

Mehr als 32 Basic-Programme für den 
Commodore 64: Beispiele auf Diskette 
Best.-Nr. MT 614 

DM48,-’ 

Mehr als 32 Basic-Programme für den IBM-PC 
Best.-Nr. MT 624 DM68,-’ 

Mehr als 32 Basic-Programme für den IBM-PC: 
Beispiele auf Diskette (5'A n mit MS-DOS 2.0) 
Best.-Nr. MT 625 DM58,-’ 

MS-DOS 

Best.-Nr. MT 616 

DM58,-’ 

Einführung in Forth 

Best.-Nr. 635 

DM58,-’ 

Lotus 1-2-3 richtig eingesetzt 

Best.-Nr. MT 637 

DM 68,—* 

Lotus 1-2-3 richtig eingesetzt 

Beispiele auf Diskette ( 5'A n , IBM-PC mit 
MS-DOS 2.0) 

Best.-Nr. MT 638 

DM 58,-’ 


DM38,-* 
DM37,-* 
DM 37,—* 
DM37,-* 
DM 37,-* 
DM 37,-* 
DM 37,—* 
DM37,-* 
DM37,-* 


* inkl. MwSt. zuzügl. Versandkosten 

Maik&fechnik 

Hans-Pinsel-Straße 2 8013 Haar bei München Telefon 4613-220 



Computerspiele 
& Wissenswertes 
Commodore 64 


Immer mehr Besitzer eines Com¬ 
modore 64 beginnen für viele 
Anwendungsfälle Maschinenpro¬ 
gramme zu schreiben. Häufig 
reicht die Ausführungsgeschwin¬ 
digkeit eines Basic-Programms 
nicht mehr aus, so daß die einzige 
Alternative in der Erstellung eines 
Assembler-Programms besteht. 
Dabei tauchen immer wieder die 
gleichen Probleme auf. Für den 
einen Drucker braucht man eine 


Centronics-Schnittstelle, für einen 
anderen ein serielles V.24-Inter- 
face. Manchmal benötigt man die 
exakte Tageszeit, oder man möch¬ 
te gern den Befehlssatz des Basic 
erweitern. Schnelle binäre Arith¬ 
metik ist nur in der Maschinen¬ 
programmebene möglich. 

All dies und noch einiges mehr 
finden Sie in diesem Buch. Es ist 
als eine Assembler-Programm¬ 
sammlung für den fortgeschritte¬ 


nen Programmierer gedacht, der 
das Rad nicht jedesmal von neu¬ 
em erfinden möchte. Der Einsatz 
der fertigen Problemlösungen 
wird durch einen als Listing im 
Buch enthaltenen Assembler un¬ 
terstützt. Für alle diejenigen, de¬ 
nen das Eintippen zu mühsam ist, 
hält der Verlag eine Diskette mit 
allen im Buch gezeigten Program¬ 
men bereit. 


Mariä Technik Verlag Aktiengesellschaft 
ISBN 3-922120-62-8 


